anchor.diff:  
   (defmethod inspect-object ((object function) pane)
     (with-output-as-presentation
  -       (pane object 'inspected-function)
  +      (pane object 'inspected-function)
       (with-heading-style (pane)
         (princ "Function: " pane))
       (with-text-family (pane :fix)
  
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: 
  (defmethod inspect-object ((object generic-function) pane)
    (inspector-table (object pane)
        (format pane "Generic Function: ~s"
  	      (clim-mop:generic-function-name object))
      (dolist (method (clim-mop:generic-function-methods object))
        (with-output-as-presentation
  	  (pane method (presentation-type-of method))
  