cl-test-package.lsp 811 Bytes
Newer Older
1 2 3 4 5
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sat Mar 14 10:13:21 1998
;;;; Contains: CL test case package definition

6 7
(let* ((name :cl-test)
       (pkg (find-package name)))
8
  (unless pkg (setq pkg (make-package name :use '(:cl :regression-test))))
9 10
  (let ((*package* pkg))
    (shadow '(#:handler-case #:handler-bind))
11
    (import '(common-lisp-user::compile-and-load)
sds's avatar
sds committed
12
            pkg)
13
    (export (mapcar #'intern
sds's avatar
sds committed
14 15 16 17 18
                    (mapcar #'symbol-name
                            '(#:random-from-seq #:random-case #:coin
                              #:random-permute #:*universe* #:*mini-universe*
                              #:*cl-symbols*
                              #:signals-error #:typef)))))
19 20 21 22
  (let ((s (find-symbol "QUIT" "CL-USER")))
    (when s (import s :cl-test))))