1 |
;-*- Mode: Lisp -*- |
;-*- Mode: Lisp -*- |
|
;;;; Copyright 1998 Motorola, Inc. All right reserved. |
|
|
;;;; Motorola Internal Use Only. |
|
|
;;;; |
|
2 |
;;;; Author: Paul Dietz |
;;;; Author: Paul Dietz |
3 |
;;;; Created: Sat Mar 7 10:32:13 1998 |
;;;; Created: Tue Dec 17 21:10:53 2002 |
4 |
;;;; Contains: Package definition for RT system (new form) |
;;;; Contains: Package definition for RT |
5 |
|
|
6 |
(eval-when |
(eval-when |
7 |
;;(:execute :compile-toplevel :load-toplevel) |
;;(:execute :compile-toplevel :load-toplevel) |
8 |
(load eval compile) |
(load eval compile) |
9 |
(defpackage :rt |
(defpackage :rt |
|
(:nicknames) |
|
10 |
(:use :cl) |
(:use :cl) |
11 |
(:export |
(:export |
12 |
"DEFTEST" "GET-TEST" "DO-TEST" "REM-TEST" |
"*DO-TESTS-WHEN-DEFINED*" |
13 |
"REM-ALL-TESTS" "DO-TESTS" "PENDING-TESTS" |
"*TEST*" |
14 |
"CONTINUE-TESTING" "*TEST*" "*DO-TESTS-WHEN-DEFINED*"))) |
"CONTINUE-TESTING" |
15 |
|
"DEFTEST" |
16 |
|
"DO-TEST" |
17 |
|
"DO-TESTS" |
18 |
|
"GET-TEST" |
19 |
|
"PENDING-TESTS" |
20 |
|
"REM-ALL-TESTS" |
21 |
|
"REM-TEST" |
22 |
|
))) |
23 |
|
|
24 |
(in-package :rt) |
(in-package :rt) |