anchor.diff:  ;;; is the dragged presentation.
   
   (defmethod initialize-instance :after ((obj drag-n-drop-translator)
  -				       &key documentation
  -				       pointer-documentation
  -				       destination-translator)
  +                                       &key documentation
  +                                       pointer-documentation
  +                                       destination-translator)
     (declare (ignore destination-translator))
     ;; This is starting to smell...
     (flet ((make-adapter (func)
  -	   (lambda (object &rest args &key presentation &allow-other-keys)
  -	     (if *dragged-presentation*
  -		 (apply func
  -			*dragged-object*
  -			:presentation *dragged-presentation*
  -			:destination-object object
  -			:destination-presentation presentation
  -			args)
  -		 (apply func object args)))))
  +           (lambda (object &rest args &key presentation &allow-other-keys)
  +             (if *dragged-presentation*
  +                 (apply func
  +                        *dragged-object*
  +                        :presentation *dragged-presentation*
  +                        :destination-object object
  +                        :destination-presentation presentation
  +                        args)
  +                 (apply func object args)))))
       (setf (slot-value obj 'documentation) (make-adapter documentation))
       (when pointer-documentation
         (setf (slot-value obj 'pointer-documentation)
  -	    (make-adapter pointer-documentation)))))
  +            (make-adapter pointer-documentation)))))
   
   (defmacro define-drag-and-drop-translator
       (name (from-type to-type destination-type command-table
  
positive.code:    :documentation-key documentation-key
     :partial-completers partial-completers)
    :options ((name-key 'default-completion-name-key)
  	    (documentation-key 'member-alist-doc-key)
  	    (partial-completers '(#\Space))))
  
  (define-presentation-type sequence (type)
    :options ((separator #\,) (echo-space t))
  
negative.code:   (eq object nil))
  
  (define-presentation-method present (object (type null)
                                       stream
                                       (view textual-view)
                                       &key acceptably for-context-type)
    (declare (ignore object acceptably for-context-type))
    (write-string "None" stream))
  
  (define-presentation-method accept ((type null) stream (view textual-view)
                                      &key)
    (values (completing-from-suggestions (stream)
              (suggest "None" nil)
              (suggest "" nil))))
  
  (define-presentation-type boolean ()
    :inherit-from t)
  