X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Finspect.lisp;h=2a7f83ff7f3e28d4cc02d3e86d148bd5d3dd3bc4;hb=c3699db2053ff3b5ac6a98d4431c3789496002d8;hp=c7b7449a2706511e81bf138c305a7f130d3a780d;hpb=303253a69e2cbb7332676afce009616cd684728d;p=sbcl.git

diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp
index c7b7449..2a7f83f 100644
--- a/contrib/sb-aclrepl/inspect.lisp
+++ b/contrib/sb-aclrepl/inspect.lisp
@@ -58,12 +58,10 @@ The commands are:
 
 
 (defun inspector-fun (object input-stream output-stream)
-  (declare (ignore input-stream))
   (let ((*current-inspect* nil)
 	(*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)