anchor.diff:  
   (defun sort-params-first (list &key stack-predicate stack-key)
     (let (with-param without-param)
  -    (mapcar (lambda (pair)
  +    (mapc (lambda (pair)
   	      (if (cdr pair)
   		  (push pair with-param)
   		  (push pair without-param)))
  
positive.code:    (type (or prefix null) prefix))
    (let (channel-string)
      (when channels
        (mapcar (lambda (channel)
  		(when channel
  		  (setf channel-string
  			(concatenate 'string
  				     channel-string
  				     (when channel-string ",")
  				     channel))))
  	      (limit-params channels)))
      (make-instance 'cmd-names
  		   :prefix prefix
  
negative.code: 	 (grant (not (mode-grant (caar mode-plist))))
  	 mode-string
  	 params)
      (mapc (lambda (pair)
  	    (let ((new-grant (mode-grant (car pair))))
  	      (when (not (equalp grant new-grant))
  		(setf mode-string
  		      (concatenate 'string
  				   mode-string
  				   (if new-grant "+" "-")))
  		(setf grant new-grant)))
  	    (setf mode-string
  		  (concatenate 'string
  			       mode-string
  			       (mode-mode (car pair))))
  	    (push (cdr pair)params))
  	  mode-plist)
      (make-instance 'cmd-mode
  		   :prefix prefix
  		   :params (append (list target mode-string)
  