anchor.diff:        (append positional 
   	      (when rest (list '&rest (caar rest)))
   	      (when named (list '&key)) named
  -	      others)))
  +	      others))))
     
     
   ;;;;
  
positive.code: ;;;; Returns the head of hte list, all but the last element
  (defun all-but-last (list)
    (subseq list 0 (1- (length list))))
      
  
  ;;;;
  ;;;; "normalizes" arguments from the result of parsing a documented lambda list
  
negative.code: 	     (getf parsed-doc-ll :positional))
       (mapcar #'(lambda (named-arg)
  		 (let ((name
  			 (intern (symbol-name (elt named-arg 0)) 
  				 (find-package "KEYWORD"))))
  		   (list :var-forward (list name (elt named-arg 0))
  			 :lambda-list-foward (list (all-but-last named-arg))
  			 :doc (car (last named-arg))
  