Commit 8744f0c3 authored by pfdietz's avatar pfdietz

Export some symbols used in ba-test

parent 1f037a6d
......@@ -3,27 +3,18 @@
;;;; Created: Sat Mar 14 10:13:21 1998
;;;; 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)
(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))
(shadow '(#:handler-case #:handler-bind))
(import '(#-wcl common-lisp-user::compile-and-load
#+wcl user::compile-and-load)
(import '(common-lisp-user::compile-and-load)
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")))
(when s (import s :cl-test))))
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment