Changeset 12619


Ignore:
Timestamp:
04/16/10 13:41:14 (12 years ago)
Author:
Mark Evenson
Message:

Incorporate an ASDF2 snapshot as the base ASDF.
Verify load of classfiles for non-zero values of SAFETY.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r12484 r12619  
    6969
    7070(declaim (ftype (function (t) t) verify-load))
    71 ;(defun verify-load (classfile)
    72 ;  (and classfile
    73 ;       (let ((*load-truename* *output-file-pathname*))
    74 ;         (report-error
    75 ;          (load-compiled-function classfile)))))
    7671(defun verify-load (classfile)
    77   (declare (ignore classfile))
    78   t)
    79 
     72  (if (> *safety* 0)
     73    (and classfile
     74         (let ((*load-truename* *output-file-pathname*))
     75           (report-error
     76            (load-compiled-function classfile))))
     77    t))
     78   
    8079(declaim (ftype (function (t) t) process-defconstant))
    8180(defun process-defconstant (form)
Note: See TracChangeset for help on using the changeset viewer.