projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Restore building of +sb-unicode with -sb-unicode.
[sbcl.git]
/
src
/
code
/
target-load.lisp
diff --git
a/src/code/target-load.lisp
b/src/code/target-load.lisp
index
79000f0
..
4a819e9
100644
(file)
--- 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)
(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))))
;; Case 1: stream.
(when (streamp pathspec)
(return-from load (load-stream pathspec (fasl-header-p pathspec))))