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:   ;; `(,(class-name (class-of self))
    ;;    ,(let-bindings  self) ,@(let-statements self))
    ;;                                       ; c-sexp
    ;; `(,(intern (c-keyword self) "COM.INFORMATIMAGO.LANGUAGES.LINC.C")
    ;;    ,(mapcar (function c-sexp) (let-bindings  self))
    ;;    ,@(mapcar (function c-sexp) (let-statements self)))
    ;;                                       ; generate
  
negative.code:               (emit :fresh-line "namespace")
                (when namespace-identifier
                  (emit " ")
                  (generate namespace-identifier))
                (with-parens "{}"
                  (dolist (declaration namespace-body)
                    (generate declaration)))
  