anchor.diff:  
     (type-specifier 
      (unsigned int (lambda (u i) (declare (ignore u i)) :uint32))
  +   (unsigned (lambda (a) (declare (ignore a)) :uint32))
      (int (lambda (i) (declare (ignore i)) :int32))
      (unsigned hyper (lambda (u h) (declare (ignore u h)) :uint64))
      (hyper (lambda (h) (declare (ignore h)) :int64))
  
positive.code: 		  pathspec 
  		  year month day hour min sec))
  	(terpri f)
  	(dolist (form forms)
  	  (cond
  	    ((eq (car form) :program)
  
negative.code:   ("program" (return (values 'program 'program)))
    ("version" (return (values 'version 'version)))
    ("void" (return (values 'void 'void)))
    ("0x([0-9a-fA-F]+)" (return (values 'constant (parse-integer (or $1 "") :radix 16))))
    ("[-]?[0-9]+" (return (values 'constant (parse-integer $@))))
    ("\\\"([0-9a-fA-F]+)\\\"" (return (values 'constant (parse-integer (or $1 "") :radix 16))))
    ("\\w+" (return (values 'identifier (alexandria:symbolicate (substitute #\- #\_ (string-upcase $@))))))
    "/\\*(.|\\\n)*?\\*/" ;; for multi-line comments
    "//(.*)\\\n"  ;; single line comments
    "\\%.*?\\\n"
    "\\#.*?\\\n")
             
  (defun test-lexer (string)
    (let ((l (xdr-lexer string)))
  