From 5579e97941f14d5f13a7090054a2a4f419e04252 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Thu, 5 Jun 2003 21:07:10 +0000 Subject: [PATCH 1/1] 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 --- src/code/target-error.lisp | 7 ------- src/cold/warm.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 2 insertions(+), 9 deletions(-) diff --git a/src/code/target-error.lisp b/src/code/target-error.lisp index f4093cc..fc61108 100644 --- 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))) - - - - -;;;; 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 --- 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)))))) ;;;; setting package documentation diff --git a/version.lisp-expr b/version.lisp-expr index ae5efbc..3ea0b99 100644 --- 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" -- 1.7.10.4