X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-load.lisp;h=4a819e9bae8a3212e5d8557b8fd83f0456816610;hb=4ba392170e98744f0ef0b8e08a5d42b988f1d0c9;hp=79000f065a4f61f3f66a22795732dd99c7ea398e;hpb=c017b878e30a0bc9a175d3f5a1a4d3537804160c;p=sbcl.git

diff --git a/src/code/target-load.lisp b/src/code/target-load.lisp
index 79000f0..4a819e9 100644
--- a/src/code/target-load.lisp
+++ b/src/code/target-load.lisp
@@ -118,7 +118,9 @@
              (return-from load
                (if faslp
                    (load-as-fasl stream verbose print)
-                   (load-as-source stream :verbose verbose :print print))))))
+                   (sb!c:with-compiler-error-resignalling
+                     (load-as-source stream :verbose verbose
+                                            :print print)))))))
     ;; Case 1: stream.
     (when (streamp pathspec)
       (return-from load (load-stream pathspec (fasl-header-p pathspec))))