anchor.diff:  	 (include-c (h-file-c nym) :local local))
    (headers (&rest xs)
   	  (format nil "~{~a~}" (mapcar #'(lambda (x) (apply #'header-c (f/list x))) xs)))
  - (lisp (x)
  -       (progn (eval x) ""))
  + (cpp (&rest xs)
  +      (cofsy xs)
  +      (format nil "#~{~a~^ ~}" xs))
  +  (lisp (x)
  +       (let ((s (eval x)))
  +           (if (stringp s) s "")))
    (lispmacro (f llist &rest body)
  -	    (progn (eval `(cdefun ,f ,llist ,@body)) ""))
  +            (if (and
  +                  (fboundp (cnym f))
  +                  (not (inhash f *macrolist*)))
  +      (format nil "/**ERROR: \"~a\" ALREADY DEFINED.**/" f)
  +      (progn
  +        (eval `(cdefun ,f ,llist ,@body))
  +        (sethash f t *macrolist*)
  +        (format nil "/**DEFINED: \"~a\" (lispmacro)**/" f))))
  +            
    (lambda (llist template &rest args)
     (cof (eval `(apply (replacify-lambda ,llist ,template) ',args))))
    (template (f vars template)
   	     (progn (eval `(cdefun ,f (&rest args)
   			    (cof
  -         (apply (replacify-lambda ,vars ,template) (mapcar #'cof args)))))
  -             "" ))
  +         (apply (replacify-lambda ,vars ,template)
  +                (mapcar #'cof args)))))
  +         (sethash f t *templatelist*)
  +         (format nil "/**DEFINED: \"~a\" (template)**/" f) ))
    (templates (f vars template)
               (progn
                 (eval `(cdefun ,f (&rest argss)
  
positive.code:   (setf strs
          (flatten (mapcan #'(lambda (x) (split-str x #\-)) (mapcar #'strof strs))))
    (format nil "~a~{~a~}" (string-downcase (car strs)) (mapcar #'capitalize-c (cdr strs))))
  
  (defun cof (x)
    (if (null x)
  
negative.code:     (cofy ifyes)
      (cofy ifno)
      (format nil "(~a)?~a:(~a)" test ifyes ifno))
   (if (test &optional ifyes ifno)
       (cofy test)
       (cofy ifyes)
       (format nil "if(~a) {~%   ~a;~%}~a"  test ifyes (if ifno (format nil "else{~%   ~a;~%}"(cof ifno)) "")))
   (cond (&rest pairs)
         (format nil "if(~a) {~{~%  ~a;~}~%}~{~a~}" (cof (caar pairs)) (mapcar #'cof (cdar pairs))
           (mapcar #'(lambda (pair) (format nil "else if(~a){~{~%   ~a;~}~%}"
              (cof (car pair)) (mapcar #'cof (cdr pair)))) (cdr pairs))))
   (ifs (&rest pairs)
         (format nil "if(~a) {~{~%  ~a;~}~%}~{~a~}" (cof (caar pairs)) (mapcar #'cof (cdar pairs))
           (mapcar #'(lambda (pair) (format nil "if(~a){~{~%   ~a;~}~%}"
              (cof (car pair)) (mapcar #'cof (cdr pair)))) (cdr pairs))))
   (main (&rest body)
         (format nil "int main(int argc,char **argv)~a" (block-c body)))
   (for (a b c &rest lines)
  