X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-load.lisp;h=b20c4e40335a963313691235fad4ef6b6dcdcc7f;hb=05e9b542c5700416b8fd9f3ba9bb91bb6ab84b3a;hp=d1dcd872b1a132100b9dbb8041d42a5323a4e73b;hpb=305d6ddb826451ee5ab8e2d6ffa15f7dfc1de873;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))