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