anchor.diff:  	     (when found
   	       (return-from translate-specifier-for-type (values translation
   								 t)))))
  -  (values nil nil))
  +  (values super-name nil))
   
   ;;; XXX can options be specified without parameters?  I think not.
   (defmacro define-presentation-generic-function (generic-function-name
  
positive.code: 			(get-all-params arg))
  		       (t nil)))))
  
  (defun transform-options-lambda-list (ll)
    "Return a legal lambda list given an options specification"
     (loop for spec in ll
  
negative.code: 	      finally (return (values qualifiers arg (cdr arglist)))))
  
  (defmacro define-presentation-method (name &rest args)
    (when (eq name 'presentation-subtypep)
      ;; I feel so unclean!
      (return-from define-presentation-method
        `(define-subtypep-method ,@args)))
    (let ((gf (gethash name *presentation-gf-table*)))
      (unless gf
        (error "~S is not a presentation generic function" name))
  