X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcommon-os.lisp;h=7b324192e2c6c8b6fbb00f1b755d1c9b17474fa2;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=51ebbc1a7e65eba367e9e63ff89ba12d6b54f3a7;hpb=01488e5ddb6c8c10bc01bc9c502be1fe9de8e370;p=sbcl.git

diff --git a/src/code/common-os.lisp b/src/code/common-os.lisp
index 51ebbc1..7b32419 100644
--- a/src/code/common-os.lisp
+++ b/src/code/common-os.lisp
@@ -43,5 +43,6 @@
   (setf *core-pathname*
         (merge-pathnames (native-pathname *core-string*)))
   (/show0 "setting *RUNTIME-PATHNAME*")
-  (setf *runtime-pathname* (native-pathname (os-get-runtime-executable-path)))
+  (let ((exe (os-get-runtime-executable-path)))
+    (setf *runtime-pathname* (when exe (native-pathname exe))))
   (/show0 "leaving OS-COLD-INIT-OR-REINIT"))