Commit 354ca7d7 authored by pfdietz's avatar pfdietz

Don't export ==> from cl-test, and indentation changes.

parent 9040490a
......@@ -3,13 +3,12 @@
;;;; Created: Sat Mar 14 10:13:21 1998
;;;; Contains: CL test case package definition
(defpackage :cl-test
(:use :cl :regression-test)
(:nicknames)
(:shadow #:handler-case #:handler-bind)
(:import-from "COMMON-LISP-USER" #:compile-and-load "==>")
(:export #:random-from-seq #:random-case #:coin #:random-permute))
(let ((s (find-symbol "QUIT" "CL-USER")))
(when s (import s :cl-test)))
(progn
(defpackage :cl-test
(:use :cl :regression-test)
(:nicknames)
(:shadow #:handler-case #:handler-bind)
(:import-from "COMMON-LISP-USER" #:compile-and-load)
(:export #:random-from-seq #:random-case #:coin #:random-permute))
(let ((s (find-symbol "QUIT" "CL-USER")))
(when s (import s :cl-test))))
......@@ -251,9 +251,12 @@
))
(defparameter *cl-user-symbols*
'(cl-user::foo cl-user::x
cl-user::cons cl-user::lambda
cl-user::*print-readably* cl-user::push))
'(cl-user::foo
cl-user::x
cl-user::cons
cl-user::lambda
cl-user::*print-readably*
cl-user::push))
(defparameter *symbols*
(append *booleans* *keywords* *uninterned-symbols*
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment