Changeset 10184

Timestamp:

10/22/05 19:29:42 (18 years ago)

Author:

piso

Message:

Work in progress.

File:

• trunk/j/src/org/armedbear/lisp/tests/test-utilities.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/tests/test-utilities.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2005 Peter Graves
-;;; $Id: test-utilities.lisp,v 1.1 2005-10-22 14:13:01 piso Exp $
+;;; $Id: test-utilities.lisp,v 1.2 2005-10-22 19:29:42 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -18 +18 @@
 ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 
-(unless (find-package '#:regression-test)
-  (load "rt-package.lisp"))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (unless (find-package '#:regression-test)
+    (load "rt-package.lisp")))
 
 (in-package #:regression-test)