Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |