anchor.diff:        (multiple-value-bind (object type)
             (presentation-history-next history accepting-type)
           (when type
  -	  (when (%object-command-p object 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))
  
positive.code: 		 (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*)
  
negative.code:       (multiple-value-bind (object type)
            (presentation-history-previous 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))
  	  (let ((*print-case* :downcase))
  