Changeset 3869

Timestamp:

09/18/03 19:06:36 (19 years ago)

Author:

piso

Message:

Work in progress.

File:

• trunk/j/src/org/armedbear/lisp/rt.lisp (modified) (4 diffs)

trunk/j/src/org/armedbear/lisp/rt.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: rt.lisp,v 1.130 2003-09-13 18:48:02 piso Exp $
+;;; $Id: rt.lisp,v 1.131 2003-09-18 19:06:36 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -36 +36 @@
 (defvar *prefix* "/home/peter/gcl/ansi-tests/")
 
-(defvar *compile-tests* nil)
+(defvar *compile-tests* t)
 
 (defvar *passed* 0)
@@ -93 +93 @@
     (let* ((aborted nil)
            (r (handler-case (multiple-value-list
-                             (if *compile-tests*
-                                 (funcall (compile nil `(lambda () ,form)))
-                                 (eval `,form)))
+                             (cond (*compile-tests*
+                                    (funcall (compile nil `(lambda () ,form))))
+                                   (t
+                                    (eval `,form))))
                             (error (c) (setf aborted t) (list c))))
            (passed (and (not aborted) (equalp-with-case r `,values))))
@@ -481 +482 @@
 
 #+armedbear
-(when (and (find-package "JVM")
-           (fboundp 'jvm::jvm-compile))
+(when (fboundp 'jvm::jvm-compile)
   (mapcar #'jvm::jvm-compile '(sys::list-remove-duplicates*
                                sys::vector-remove-duplicates*