anchor.diff:  
   
   (defun find-presentation-translators (from-type to-type command-table)
  -  (let* ((command-table (find-command-table command-table))
  +  (let* ((command-table (find-command-table command-table))	 
   	 (from-name (presentation-type-name from-type))
   	 (to-name (presentation-type-name to-type))
   	 (cached-translators (gethash (cons from-name to-name)
  
positive.code: 				(return-from translator-lessp nil)))))
  		     ;; Command table inheritance
  		     (< table-num-a table-num-b)))))
  	  (setf (gethash (cons from-name to-name)
  			 (presentation-translators-cache
  			  (presentation-translators command-table)))
  
negative.code: ;;; 23.7.1 Defining Presentation Translators
  
  (defclass presentation-translator ()
    ((name :reader name :initarg :name)   
     (from-type :reader from-type :initarg :from-type)
     (to-type :reader to-type :initarg :to-type)
     (gesture :reader gesture :initarg :gesture)
  