anchor.diff:                                                    &key (default-type type)
                                                     default)
     (let ((read-result (accept-using-read stream type)))
  -    (if (and (null read-result) default) 
  +    (if (and (null read-result) default)
           (values default default-type)
           (values read-result type))))
   
  
positive.code: (defvar *dragged-object* nil
    "Bound to the object dragged in a drag-and-drop context")
  
  ()
  ;;; According to the Franz User's guide, the destination object is
  ;;; available in the tester, documentation, and translator function
  ;;; as destination-object. Therefore OBJECT is the dragged object. In
  
negative.code:                                        pointer-documentation
                                         destination-translator)
    (declare (ignore destination-translator))
    (setf (slot-value obj 'documentation) documentation)
    (when pointer-documentation
      (setf (slot-value obj 'pointer-documentation) pointer-documentation)))
  
  (defmacro define-drag-and-drop-translator
      (name (from-type to-type destination-type command-table
  