From 8744f0c3ba83319820a9b2ce73d658e3ef10250f Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 4 Jun 2005 17:37:12 +0000
Subject: [PATCH] Export some symbols used in ba-test

---
 ansi-tests/cl-test-package.lsp | 23 +++++++----------------
 1 file changed, 7 insertions(+), 16 deletions(-)

diff --git a/ansi-tests/cl-test-package.lsp b/ansi-tests/cl-test-package.lsp
index 43ee22bc..d643f9e7 100644
--- a/ansi-tests/cl-test-package.lsp
+++ b/ansi-tests/cl-test-package.lsp
@@ -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))))
 
-- 
GitLab