anchor.diff:                                         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)))))
  -    (setf (slot-value obj 'documentation) (make-adapter documentation))
  -    (when pointer-documentation
  -      (setf (slot-value obj 'pointer-documentation)
  -            (make-adapter pointer-documentation)))))
  +  (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
  
positive.code:         (*print-radix* radix))
      (princ object stream)))
  
  (define-presentation-method accept ((type real) stream (view textual-view) &key 
                                                  (default-type type)
                                                  default)
    (let ((*read-base* base)
           (read-result (accept-using-read stream type)))
      (if (and (null read-result) default) 
          (values default default-type)
          (values read-result type))))
  
  
negative.code:       (object type-var)
        (let ((str (read-token stream)))
  	(loop for or-type in types
  	   do
  	     (handler-case
  		 (progn
  		   (return (accept-from-string or-type
  