/[gcl]/gcl/ansi-tests/rt-package.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/rt-package.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by pfdietz, Sat May 1 21:59:38 2004 UTC revision 1.10 by pfdietz, Mon Nov 1 13:19:09 2004 UTC
# Line 3  Line 3 
3  ;;;; Created:  Tue Dec 17 21:10:53 2002  ;;;; Created:  Tue Dec 17 21:10:53 2002
4  ;;;; Contains: Package definition for RT  ;;;; Contains: Package definition for RT
5    
6  (eval-when  
7   (:execute :compile-toplevel :load-toplevel)  ;; (eval-when (:execute :compile-toplevel :load-toplevel)
8   (defpackage :regression-test  #| (defpackage :regression-test
9      (:use :cl)      (:use :cl)
10      (:nicknames :rtest #-lispworks :rt)      (:nicknames :rtest #-lispworks :rt)
11      (:export      (:export
# Line 24  Line 24 
24       #:my-aref       #:my-aref
25       #:*catch-errors*       #:*catch-errors*
26       #:disable-note       #:disable-note
27       )))       ))
28     |#
29     (let* ((name (symbol-name :regression-test))
30            (pkg (find-package name)))
31       (unless pkg (setq pkg (make-package name
32                                           :nicknames (mapcar #'symbol-name '(:rtest #-lispworks :rt))
33                                           :use '(#-wcl :cl #+wcl :lisp)
34                                           )))
35       (let ((*package* pkg))
36         (export (mapcar #'intern
37                         (mapcar #'symbol-name
38                                 '(#:*compile-tests*
39                                   #:*test*
40                                   #:continue-testing
41                                   #:deftest
42                                   #:do-test
43                                   #:do-tests
44                                   #:get-test
45                                   #:pending-tests
46                                   #:rem-all-tests
47                                   #:rem-test
48                                   #:defnote
49                                   #:my-aref
50                                   #:*catch-errors*
51                                   #:disable-note))))))
52    ;;  )
53    
54  (in-package :regression-test)  ;; (in-package :regression-test)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26