Skip to content
Snippets Groups Projects
Commit 8744f0c3 authored by pfdietz's avatar pfdietz
Browse files

Export some symbols used in ba-test

parent 1f037a6d
No related branches found
No related tags found
No related merge requests found
...@@ -3,27 +3,18 @@ ...@@ -3,27 +3,18 @@
;;;; Created: Sat Mar 14 10:13:21 1998 ;;;; Created: Sat Mar 14 10:13:21 1998
;;;; Contains: CL test case package definition ;;;; Contains: CL test case package definition
#|
(progn
(defpackage :cl-test
(:use :cl :regression-test)
(:nicknames)
(:shadow #:handler-case #:handler-bind)
(:import-from "COMMON-LISP-USER" #:compile-and-load)
(:export #:random-from-seq #:random-case #:coin #:random-permute))
(let ((s (find-symbol "QUIT" "CL-USER")))
(when s (import s :cl-test))))
|#
(let* ((name :cl-test) (let* ((name :cl-test)
(pkg (find-package name))) (pkg (find-package name)))
(unless pkg (setq pkg (make-package name :use '(#-wcl :cl #+wcl :lisp :regression-test)))) (unless pkg (setq pkg (make-package name :use '(:cl :regression-test))))
(let ((*package* pkg)) (let ((*package* pkg))
(shadow '(#:handler-case #:handler-bind)) (shadow '(#:handler-case #:handler-bind))
(import '(#-wcl common-lisp-user::compile-and-load (import '(common-lisp-user::compile-and-load)
#+wcl user::compile-and-load)
pkg) pkg)
(export (mapcar #'intern (mapcar #'symbol-name '(#:random-from-seq #:random-case #:coin #:random-permute))))) (export (mapcar #'intern
(mapcar #'symbol-name
'(#:random-from-seq #:random-case #:coin
#:random-permute #:*universe* #:*mini-universe*
#:signals-error #:typef)))))
(let ((s (find-symbol "QUIT" "CL-USER"))) (let ((s (find-symbol "QUIT" "CL-USER")))
(when s (import s :cl-test)))) (when s (import s :cl-test))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment