1.0.29.35: regression from 1.0.29.27
authorNikodemus Siivola <nikodemus@random-state.net>
Wed, 24 Jun 2009 14:33:18 +0000 (14:33 +0000)
committerNikodemus Siivola <nikodemus@random-state.net>
Wed, 24 Jun 2009 14:33:18 +0000 (14:33 +0000)
* If the runtime namestring is not available, don't try to parse it.

* Reported by Josh Elsasser.

src/code/common-os.lisp
version.lisp-expr

index 51ebbc1..7b32419 100644 (file)
@@ -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"))
index 10c7499..fedfda1 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.29.34"
+"1.0.29.35"