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