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

diff --git a/contrib/sb-aclrepl/inspect.lisp b/contrib/sb-aclrepl/inspect.lisp
index 476b9eb..c7b7449 100644
--- a/contrib/sb-aclrepl/inspect.lisp
+++ b/contrib/sb-aclrepl/inspect.lisp
@@ -1,4 +1,4 @@
-/nick;;;; Inspector for sb-aclrepl
+;;;; Inspector for sb-aclrepl
 ;;;;
 ;;;; The documentation, which may or may not apply in its entirety at
 ;;;; any given time, for this functionality is on the ACL website:
@@ -599,7 +599,7 @@ position with the label if the label is a string."
 cons cells and LIST-TYPE is :normal, :dotted, or :cyclic"
     (do ((length 1 (1+ length))
 	 (lst (cdr object) (cdr lst)))
-	((or (not(consp lst))
+	((or (not (consp lst))
 	     (eq object lst))
 	 (cond
 	   ((null lst)
@@ -615,10 +615,9 @@ cons cells and LIST-TYPE is :normal, :dotted, or :cyclic"
   (multiple-value-bind (length list-type) (cons-safe-length object)
     (format nil "a ~A list with ~D element~:*~P~A"
 	    (string-downcase (symbol-name list-type)) length
-	    (case list-type
+	    (ecase list-type
 	      ((:dotted :cyclic) "+tail")
-	      (t "")))))
-
+	      (:normal "")))))
 
 (defun ref32-hexstr (obj &optional (offset 0))
   (format nil "~8,'0X" (ref32 obj offset)))