anchor.diff:                  :halt-function halt-function
                   :context-type context-type
                   ))
  +
   
   
   ;; Generate a predictive parser for LL(1) grammars
  
positive.code:                                                        `(:if (:!= 0 (:call ,function-name "context" ,(gethash a hash)))
                                                               ((:return -1))))
                                                        ((finite-set-inp a terminals)
                                                         `(:if (:!= 0 (:call ,(csymbol a) "context"))
                                                               ((:return -1))))
                                                        (t (error "Unknown symbol type ~A" a))))
                                             (list '(:return 0)))))))))
  
negative.code: 
  (defun c-indent-format (fmt &rest args)
    (format *c-stream* "~&~A"
            (make-string (max 0 *c-indent*) :initial-element #\Tab))
    (apply #'c-format fmt args))
  
  (defmacro with-c-indent (&body body)
  