anchor.diff:      (loop for translator in translators
   	  if (test-presentation-translator translator
   					   presentation
  -					   ctype 
  +					   ctype
   					   frame
   					   window
   					   x y
  
positive.code: 	(result-size nil))
      (map-applicable-translators
       #'(lambda (translator presentation context)
  	 (if (and result-context (not (eq result-context context)))
  	     ;; Return inner presentation
  	     (return-from find-innermost-presentation-match
  	       (values result result-translator result-context))
  
negative.code: 		 :initform *allow-sensitive-inferiors*)))
  
  
  (defclass standard-presentation
      (presentation-mixin standard-sequence-output-record)
    ())
  
  