Changeset 14260


Ignore:
Timestamp:
11/28/12 14:35:49 (8 years ago)
Author:
Mark Evenson
Message:

Restore warning and failure values from CL:COMPILE-FILE.

Closes #265.

File:
1 edited

Legend:

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

    r14212 r14260  
    727727         (namestring (namestring *compile-file-truename*))
    728728         (start (get-internal-real-time))
    729          *fasl-uninterned-symbols*)
     729         *fasl-uninterned-symbols*
     730         (warnings-p nil)
     731         (failure-p nil))
    730732    (when *compile-verbose*
    731733      (format t "; Compiling ~A ...~%" namestring))
     
    865867          (format t "~&; Wrote ~A (~A seconds)~%"
    866868                  (namestring output-file)
    867                   (/ (- (get-internal-real-time) start) 1000.0)))) )
     869                  (/ (- (get-internal-real-time) start) 1000.0)))
     870        (values (truename output-file) warnings-p failure-p)))
    868871
    869872(defun compile-file (input-file
     
    900903           *toplevel-functions*
    901904           *toplevel-macros*
    902            *toplevel-exports*
    903            (warnings-p nil)
    904            (failure-p nil))
     905           *toplevel-exports*)
    905906      (with-open-file (in input-file :direction :input :external-format external-format)
    906         (compile-from-stream in output-file temp-file temp-file2
    907                              extract-toplevel-funcs-and-macros
    908                              functions-file macros-file exports-file))
    909       (values (truename output-file) warnings-p failure-p))))
     907        (multiple-value-bind (output-file-truename warnings-p failure-p)
     908            (compile-from-stream in output-file temp-file temp-file2
     909                                 extract-toplevel-funcs-and-macros
     910                                 functions-file macros-file exports-file)
     911          (values (truename output-file) warnings-p failure-p))))))
    910912
    911913(defun compile-file-if-needed (input-file &rest allargs &key force-compile
Note: See TracChangeset for help on using the changeset viewer.