X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcommon-os.lisp;h=66ef963db051894426672468a468a7cb149e8286;hb=44fa19275c08a17b9d80d95102c1a8bc0da7a17e;hp=081ccc141f2da9da9352cf6cfe26c693159a2c41;hpb=b7e68df14bbdcee894af620e4168328797be94b9;p=sbcl.git

diff --git a/src/code/common-os.lisp b/src/code/common-os.lisp
index 081ccc1..66ef963 100644
--- a/src/code/common-os.lisp
+++ b/src/code/common-os.lisp
@@ -25,18 +25,18 @@
                                     &key default
                                          explanation
                                          (condition 'error))
-  `(handler-case
-       (setf ,variable ,form)
-     (,condition (c)
-       (let ((default ,default))
-         (warn "Error initializing ~a~@[ ~a~]:~@
+  `(setf ,variable
+         (handler-case ,form
+           (,condition (c)
+             (let ((default ,default))
+               (warn "Error initializing ~a~@[ ~a~]:~@
              ~a
              ~% Using ~s instead."
-               ',variable
-               ,explanation
-               c
-               default)
-         default))))
+                     ',variable
+                     ,explanation
+                     c
+                     default)
+               default)))))
 
 ;;; If something ever needs to be done differently for one OS, then
 ;;; split out the different part into per-os functions.