/[gcl]/gcl/ansi-tests/cl-test-package.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cl-test-package.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26