X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-load.lisp;fp=src%2Fcode%2Ftarget-load.lisp;h=b20c4e40335a963313691235fad4ef6b6dcdcc7f;hb=00ca0f6bd2e4e4e4c6214466c83b2f5e7c063c65;hp=d1dcd872b1a132100b9dbb8041d42a5323a4e73b;hpb=670aa64810a3d67510c697410b438b5f9e36d911;p=sbcl.git

diff --git a/src/code/target-load.lisp b/src/code/target-load.lisp
index d1dcd87..b20c4e4 100644
--- a/src/code/target-load.lisp
+++ b/src/code/target-load.lisp
@@ -112,13 +112,13 @@
                                      (open pathname
                                            :if-does-not-exist
                                            (if if-does-not-exist :error nil)
-                                           :element-type '(unsigned-byte 8)))
-                              (if if-does-not-exist
-                                  (error 'simple-file-error
-                                         :pathname pathspec
-                                         :format-control
-                                         "~@<Couldn't load ~S: file does not exist.~@:>"
-                                         :format-arguments (list pathspec))))))))
+                                           :element-type '(unsigned-byte 8))))))
+                      (if if-does-not-exist
+                          (error 'simple-file-error
+                                 :pathname pathspec
+                                 :format-control
+                                 "~@<Couldn't load ~S: file does not exist.~@:>"
+                                 :format-arguments (list pathspec)))))
         (unless stream
           (return-from load nil))