Commit 401744d8 authored by pfdietz's avatar pfdietz

Export *cl-symbols* from CL-TEST

parent 65882ca8
......@@ -14,6 +14,7 @@
(mapcar #'symbol-name
'(#:random-from-seq #:random-case #:coin
#:random-permute #:*universe* #:*mini-universe*
#:*cl-symbols*
#:signals-error #:typef)))))
(let ((s (find-symbol "QUIT" "CL-USER")))
(when s (import s :cl-test))))
......
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