anchor.diff:  				       " GMT"
   				       "")))))
   	       		  (setf last-date (cons (cons ut time-zone) result))
  -			  result)))))+			  result)))))
  
positive.code: 	    (if start
  		(incf start)
  		(return mailboxes))
  	    )))))
  
  (defun parse-group-address (string &key (start 0) (end (length string)) (errorp t))
  
negative.code: 	    (if start
  		(incf start)
  		(return addresses))
  	    (setf start (or (position-if-not #'white-space-p string :start start)
  			    start))
  	    )))))
  
  (defun address (address-designator)
  