Parent Directory | Revision Log | Patch
revision 1.12 by pfdietz, Sat Jun 4 17:37:12 2005 UTC | revision 1.13 by pfdietz, Wed Jun 8 13:42:49 2005 UTC | |
---|---|---|
# | Line 14 | Line 14 |
14 | (mapcar #'symbol-name | (mapcar #'symbol-name |
15 | '(#:random-from-seq #:random-case #:coin | '(#:random-from-seq #:random-case #:coin |
16 | #:random-permute #:*universe* #:*mini-universe* | #:random-permute #:*universe* #:*mini-universe* |
17 | #:*cl-symbols* | |
18 | #:signals-error #:typef))))) | #:signals-error #:typef))))) |
19 | (let ((s (find-symbol "QUIT" "CL-USER"))) | (let ((s (find-symbol "QUIT" "CL-USER"))) |
20 | (when s (import s :cl-test)))) | (when s (import s :cl-test)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |