anchor.diff:  namespacedecl ns/d
   namespacedecl n/s/d
   namespacedecl ns{}
  -namespacedecl n/s{})
  +namespacedecl n/s{}
  +tridot t---
  +lambda++ l+)
   
   
   ;; SYNONYMS
  
positive.code:   (with-open-file (c-file-stream fileout :direction :output :if-does-not-exist :create)
      (format c-file-stream "~a" s)))))
  
  (defun compile-cl-file (filein &key fileout tags libs c-file cc)
    (def fileout "a.out")
    (def tags "")
  
negative.code: (cfuns
    (headers++ (&rest xs)
        (format nil "~{#include<~a>~%~}" (mapcar #'cof xs)))
    (tridot (x)
            (cofy x)
            (format nil "~a..." x))
    (struct++ (nym &rest xs)
        (cofy nym)
      (csyn '***curr-class*** nym)
        (format nil "struct ~a~a" nym (if xs (block-c xs) "")))
    (lambda++ (&optional capture-list params attribs ret &rest body)
              (setf capture-list (mapcar #'(lambda (x) (c-strify x t)) (f/list capture-list)))
              (setf attribs (mapcar #'(lambda (x) (c-strify x t)) (f/list attribs)))
              (cofsy attribs)
        (format nil "[~{~a~^,~}]~a~{~^ ~a~}~a~a"
                capture-list
                (if (or params attribs ret) (parenify (vars-c params #\, nil)) "")
                attribs
                (if ret
                    (format nil " -> ~a " (cof ret)) "")
  