anchor.diff:  				(return-from translator-lessp nil)))))
   		     ;; Command table inheritance
   		     (< table-num-a table-num-b)))))
  +	  ;; Add translators to their caches.
   	  (setf (gethash (cons from-name to-name)
   			 (presentation-translators-cache
   			  (presentation-translators command-table)))
  
positive.code: 
  
  (defun find-presentation-translators (from-type to-type 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)
  
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)
  