From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Sat, 15 Nov 2003 22:13:27 +0000 (+0000)
Subject: 0.8.5.41:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7f2582276602d131d26a384a3028f5e6d2847e7c;p=sbcl.git

0.8.5.41:
	* contrib/sb-aclrepl/: Fix error with cl:inspect
	double evaluating arguments. Bug reported by Christophe Rhodes
	on sbcl-devel 2003-11-15.
---

diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp
index c7b7449..b0c5c84 100644
--- a/contrib/sb-aclrepl/inspect.lisp
+++ b/contrib/sb-aclrepl/inspect.lisp
@@ -63,7 +63,6 @@ The commands are:
 	(*inspect-raw* nil)
 	(*inspect-length* *inspect-length*)
 	(*skip-address-display* nil))
-    (setq object (eval object))
     (setq *current-inspect* (make-inspect))
     (reset-stack object "(inspect ...)")
     (redisplay output-stream)
diff --git a/contrib/sb-aclrepl/repl.lisp b/contrib/sb-aclrepl/repl.lisp
index 0b16d89..6b2431b 100644
--- a/contrib/sb-aclrepl/repl.lisp
+++ b/contrib/sb-aclrepl/repl.lisp
@@ -428,7 +428,7 @@
     (values)))
 
 (defun inspect-cmd (arg)
-  (inspector-fun arg nil *output*)
+  (inspector-fun (eval arg) nil *output*)
   (values))
 
 (defun istep-cmd (&optional arg-string)
diff --git a/version.lisp-expr b/version.lisp-expr
index 58201ba..6ff5a29 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.5.40"
+"0.8.5.41"