anchor.diff:                       :gesture :select
                        :documentation "Room"
                        :pointer-documentation "Room")
  -    (object)
  -  (declare (ignore object)))
  +    (object))
     
   
   (define-presentation-to-command-translator com-show-class-subclasses-translator
  
positive.code:                                                             nil
                                                              base-pathname))))
             (multiple-value-bind (x y) (stream-cursor-position *standard-output*)
               (setf (stream-cursor-position *standard-output*) (values 0 y))))
            (:list (dolist (ent group)
                     (let ((ent (merge-pathnames ent pathname)))
  
negative.code:       (sort methods #'sorter))))
  
  (defun show-specialized-methods (gf stream methods arg-types)
    (declare (ignore gf))
    (let ((before nil)
  	(after nil)
  	(around nil)
  