[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv11301

Modified Files:
	swank.lisp 
Log Message:
Minor cleanups for inspector code.

* swank.lisp (inspector-content, inspect-list-aux): Slight
cleanups.


--- /project/slime/cvsroot/slime/swank.lisp	2008/02/16 19:26:23	1.532
+++ /project/slime/cvsroot/slime/swank.lisp	2008/02/20 22:07:35	1.533
@@ -2706,8 +2706,6 @@
 (defun inspector-content (specs)
   (loop for part in specs collect 
         (etypecase part
-          ;;(null ; XXX encourages sloppy programming
-          ;; nil)
           (string part)
           (cons (destructure-case part
                   ((:newline) 
@@ -2840,13 +2838,9 @@
 
 (defun inspect-list-aux (list)
   (loop for i from 0  for rest on list  while (consp rest)  append 
-        (cond ((consp (cdr rest))
-               (label-value-line i (car rest)))
-              ((cdr rest)
-               (label-value-line* (i (car rest))
-                                  (:tail (cdr rest))))
-              (t 
-               (label-value-line i (car rest))))))
+        (if (listp (cdr rest))
+            (label-value-line i (car rest))
+            (label-value-line* (i (car rest)) (:tail (cdr rest))))))
 
 (defun safe-length (list)
   "Similar to `list-length', but avoid errors on improper lists.