anchor.diff:  			  ,@real-body))))
   	      (setf (nth (type-arg-position gf) method-ll) type-var)
   	      `(defmethod ,(generic-function-name gf) ,@qualifiers ,method-ll
  +		 ,decls
   		,@real-body))))))))
   
   
  
positive.code: 				       (record-type ''standard-presentation)
  				       &allow-other-keys)
  				       &body body)
    (when (eq stream t)
      (setq stream '*standard-output*))
    (let ((output-record (gensym))
  	(invoke-key-args (cull-keywords '(:record-type
  					  :allow-sensitive-inferiors)
  					key-args)))
       `(flet ((continuation (,stream ,output-record)
  	      (declare (ignore ,output-record))
  	      (let ((*allow-sensitive-inferiors*
  
negative.code: (define-presentation-method present (object (type complex) stream
  				     (view textual-view)
  				     &key acceptably for-context-type)
    (declare (ignore acceptably for-context-type))
    (present (realpart object) (presentation-type-of (realpart object))
  	   :stream stream :view view :sensitive nil)
    (write-char #\Space stream)
  