Changeset 14260

Timestamp:

11/28/12 14:35:49 (9 years ago)

Author:

Mark Evenson

Message:

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

Closes #265.

File:

• trunk/abcl/src/org/armedbear/lisp/compile-file.lisp (modified) (3 diffs)

trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

@@ -727 +727 @@
          (namestring (namestring *compile-file-truename*))
          (start (get-internal-real-time))
-         *fasl-uninterned-symbols*)
+         *fasl-uninterned-symbols*
+         (warnings-p nil)
+         (failure-p nil))
     (when *compile-verbose*
       (format t "; Compiling ~A ...~%" namestring))
@@ -865 +867 @@
           (format t "~&; Wrote ~A (~A seconds)~%"
                   (namestring output-file)
-                  (/ (- (get-internal-real-time) start) 1000.0)))) )
+                  (/ (- (get-internal-real-time) start) 1000.0)))
+        (values (truename output-file) warnings-p failure-p)))
 
 (defun compile-file (input-file
@@ -900 +903 @@
            *toplevel-functions*
            *toplevel-macros*
-           *toplevel-exports*
-           (warnings-p nil)
-           (failure-p nil))
+           *toplevel-exports*)
       (with-open-file (in input-file :direction :input :external-format external-format)
-        (compile-from-stream in output-file temp-file temp-file2
-                             extract-toplevel-funcs-and-macros
-                             functions-file macros-file exports-file))
-      (values (truename output-file) warnings-p failure-p))))
+        (multiple-value-bind (output-file-truename warnings-p failure-p)
+            (compile-from-stream in output-file temp-file temp-file2
+                                 extract-toplevel-funcs-and-macros
+                                 functions-file macros-file exports-file)
+          (values (truename output-file) warnings-p failure-p))))))
 
 (defun compile-file-if-needed (input-file &rest allargs &key force-compile