anchor.diff:  		 (push item result)))
       (reverse result)))
   
  -(defun %object-command-p (object type)
  -  (when (and (equal type 'command-or-form)
  -		     (listp object)
  -		     (alexandria:starts-with-subseq "COM-" (symbol-name `,(car object))))
  -    t))
  -
   (defun history-yank-next (stream input-buffer gesture numeric-argument)
     (declare (ignore input-buffer gesture numeric-argument))
     (let* ((accepting-type *active-history-type*)
  
positive.code:       (multiple-value-bind (object type)
            (presentation-history-previous history accepting-type)
          (when type
  	  (when (%object-command-p object type)
  	      (setf quoted-sublists (%quote-sublists object))))
  	  (when (null quoted-sublists)
  	    (setf quoted-sublists object))
  	  (let ((*print-case* :downcase))
  
negative.code:       (multiple-value-bind (object type)
            (presentation-history-next history accepting-type)
          (when type
  	  (when (and (equal type 'command-or-form)
  		     (listp object)
  		     (alexandria:starts-with-subseq "COM-" (symbol-name `,(car object))))
  	    (setf quoted-sublists (%quote-sublists object)))
  	  (when (null quoted-sublists)
  	    (setf quoted-sublists object))
  