anchor.diff:  
   (defmethod inspect-object ((object structure-object) pane)
     (inspect-structure-or-object object pane))
  +
  +(defmethod inspect-object ((object standard-class) pane)
  +  (inspect-standard-class object pane))
  +
  +(defmethod inspect-object ((object built-in-class) pane)
  +  (inspect-standard-class object pane))
   
   (defmethod inspect-object ((object condition) pane)
     (inspect-structure-or-object object pane))
  
positive.code:         (formatting-cell (pane)
            (princ "(" pane))
          (do
            ((length 0 (1+ length))
             (cdr (cdr object) (cdr cdr))
             (car (car object) (car cdr)))
            ((cond ((eq nil cdr)
                    (formatting-cell (pane) (inspect-object car pane))
                    (formatting-cell (pane) (princ ")" pane))
                    t)
                   ((not (consp cdr))
                    (formatting-cell (pane) (inspect-object car pane))
                    (formatting-cell (pane) (princ "." pane))
                    (formatting-cell (pane) (inspect-object cdr pane))
                    (formatting-cell (pane) (princ ")" pane))
                    t)
  		 ((and *print-length* (>= length *print-length*))
                    (with-output-as-presentation (pane object 'long-list-tail)
                      (formatting-cell (pane) (princ "...)" pane)))
                    t)
                   (t nil)))
            (formatting-cell (pane) (inspect-object car pane)))))))
  
  (defmethod inspect-object ((object cons) pane)
  
negative.code: 	  (formatting-cell (pane)
  	    (inspect-object (cdr object) pane))))))
  
  (defun inspect-vertical-list (object pane &key honor-dico)
    "Inspect a list without the parentheses, putting each element on a
  new line. This is useful for showing things like direct class
  subclasses, since displaying those as a plain list looks ugly and is
  inconvenient to use. If HONOR-DICO is t, this will respect DICO and
  display '...' if OBJECT is not in DICO."
    ;; Ordinarily this would be taken care of in the :around method for
    ;; INSPECT-OBJECT, but since this is not a normal inspection view,
    ;; we need to do it ourselves. Yes, it would be better if we could
  