Changeset 3869


Ignore:
Timestamp:
09/18/03 19:06:36 (19 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/rt.lisp

    r3731 r3869  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: rt.lisp,v 1.130 2003-09-13 18:48:02 piso Exp $
     4;;; $Id: rt.lisp,v 1.131 2003-09-18 19:06:36 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3636(defvar *prefix* "/home/peter/gcl/ansi-tests/")
    3737
    38 (defvar *compile-tests* nil)
     38(defvar *compile-tests* t)
    3939
    4040(defvar *passed* 0)
     
    9393    (let* ((aborted nil)
    9494           (r (handler-case (multiple-value-list
    95                              (if *compile-tests*
    96                                  (funcall (compile nil `(lambda () ,form)))
    97                                  (eval `,form)))
     95                             (cond (*compile-tests*
     96                                    (funcall (compile nil `(lambda () ,form))))
     97                                   (t
     98                                    (eval `,form))))
    9899                            (error (c) (setf aborted t) (list c))))
    99100           (passed (and (not aborted) (equalp-with-case r `,values))))
     
    481482
    482483#+armedbear
    483 (when (and (find-package "JVM")
    484            (fboundp 'jvm::jvm-compile))
     484(when (fboundp 'jvm::jvm-compile)
    485485  (mapcar #'jvm::jvm-compile '(sys::list-remove-duplicates*
    486486                               sys::vector-remove-duplicates*
Note: See TracChangeset for help on using the changeset viewer.