From 7f2582276602d131d26a384a3028f5e6d2847e7c Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Sat, 15 Nov 2003 22:13:27 +0000 Subject: [PATCH] 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. --- contrib/sb-aclrepl/inspect.lisp | 1 - contrib/sb-aclrepl/repl.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 2 insertions(+), 3 deletions(-) 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" -- 1.7.10.4