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