/[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.8 by pfdietz, Sat Jul 12 13:46:01 2003 UTC revision 1.9 by pfdietz, Sun Oct 5 11:31:25 2003 UTC
# Line 10  Line 10 
10    (:import-from "COMMON-LISP-USER" #:compile-and-load "==>")    (:import-from "COMMON-LISP-USER" #:compile-and-load "==>")
11    (:export #:random-from-seq #:random-case #:coin #:random-permute))    (:export #:random-from-seq #:random-case #:coin #:random-permute))
12    
13  #+cmu (import 'cl::quit :cl-test)  (let ((s (find-symbol "QUIT" "CL-USER")))
14      (when s (import s :cl-test)))
15    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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