0.8.0.38:

	Fix build with :SB-SHOW (patch from Nikodemus Siivola sbcl-devel
	2003-05-31)
	... also some whitespace (and now-outdated comment) deletion
	in target-error

diff --git a/src/code/target-error.lisp b/src/code/target-error.lisp
index f4093cc..fc61108 100644 (file)
--- a/src/code/target-error.lisp
+++ b/src/code/target-error.lisp
@@ -114,13 +114,6 @@
         (args (interactive-restart-arguments real-restart)))
     (apply (restart-function real-restart) args)))
 \f
-\f
-
-
-
-;;;; helper functions for restartable error handling which couldn't be
-;;;; defined 'til now 'cause they use the RESTART-CASE macro
-
 (defun assert-error (assertion places datum &rest arguments)
   (let ((cond (if datum
                (coerce-to-condition datum

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index 0015e82..1528544 100644 (file)
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -193,7 +193,7 @@
                  (t nil))
           (unless (load output-truename)
             (error "LOAD of ~S failed." output-truename))
-          (sb-int:/show "done loading" compiled-truename))))))
+          (sb-int:/show "done loading" output-truename))))))
 \f
 ;;;; setting package documentation
 

diff --git a/version.lisp-expr b/version.lisp-expr
index ae5efbc..3ea0b99 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -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.8.0.37"
+"0.8.0.38"