0.9.8.30:
authorChristophe Rhodes <csr21@cam.ac.uk>
Tue, 10 Jan 2006 16:17:04 +0000 (16:17 +0000)
committerChristophe Rhodes <csr21@cam.ac.uk>
Tue, 10 Jan 2006 16:17:04 +0000 (16:17 +0000)
Fix for --load on Win32 (patch from James Bielman)

src/code/toplevel.lisp
version.lisp-expr

index be58064..d3b3271 100644 (file)
@@ -472,15 +472,15 @@ steppers to maintain contextual information.")
              (init-file-name (maybe-dir-name basename)
                (and maybe-dir-name
                     (concatenate 'string maybe-dir-name "/" basename))))
-        #!-win32 (let ((sysinit-truename
-               (probe-init-files sysinit
-                                 (init-file-name (posix-getenv "SBCL_HOME")
-                                                 "sbclrc")
-                                 "/etc/sbclrc"))
+        (let ((sysinit-truename
+               #!-win32 (probe-init-files sysinit
+                                          (init-file-name (posix-getenv "SBCL_HOME")
+                                                          "sbclrc")
+                                          "/etc/sbclrc"))
                (userinit-truename
-                (probe-init-files userinit
-                                  (init-file-name (posix-getenv "HOME")
-                                                  ".sbclrc"))))
+                #!-win32 (probe-init-files userinit
+                                           (init-file-name (posix-getenv "HOME")
+                                                           ".sbclrc"))))
 
           ;; This CATCH is needed for the debugger command TOPLEVEL to
           ;; work.
index 216445e..5e71226 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".)
-"0.9.8.29"
+"0.9.8.30"