anchor.diff:                (list (lambda-list-rest-parameter self)))
               (lambda-list-keyword-parameters self)))
     (defun arg-form (arg)
  -    `(if (typep ,arg 'c-item)
  +    `(if (cl:typep ,arg 'c-item)
            ,arg
            (list 'quote ,arg)))
     (defun generate-print-object (name ll fields)
  
positive.code: (define-statement stmt-return () (return-result) "return"
    :generate (progn
                (unless *same-line* (emit :fresh-line))
                (emit "return" " ")
                (generate (return-result self))
                (emit ";" :newline)))
  
  (define-statement stmt-goto () (identifier) "goto"
  
negative.code: 
  (define-declarator c-function (sub-declarator
                                 parameters
                                 &key (const nil) (volatile nil) ((:throw throw-list) nil))
    :generate (progn
                (typecase sub-declarator
                  ;; or use some *level* and priority
  