anchor.diff:         (if typs 
   	   (apply #'cast-c (cast-c nym typ) typs)
   	   (format nil "((~a)(~a))" (cof typ) (cof nym))))
  - (var (x &optional (type 'int) init)
  + (var (x &optional (type 'int) init &rest modifiers)
         (cofy x)
         (cofy type)
  -      (format nil "~a ~{~a~^,~}~a" type (f/list x) (if init (format nil "=~a" (cof init)) "")))
  +      (format nil "~a~a ~{~a~^,~}~a" (if modifiers (format nil "~{~a ~}" (mapcar #'cof modifiers))    "") type (f/list x) (if init (format nil "=~a" (cof init)) "")))
    (vars (x &optional (inter #\,) (newline t))
          (setf x (mapcar #'(lambda (y) (apply #'var-c (f/list y))) (f/list/n x 1)))
          (format nil (format nil "~~{~~a~~^~(~a~a~)~~}" inter (if newline #\Newline "")) x))
  
positive.code:   (if (stringp x) x
        (let ((s (strof x)))
  	(if (numeric-string s) s
  	    (if (eq (char s 0) #\!) (replace-char #\- #\_ (subseq s 1))
  		(replace-char #\- #\_ (string-downcase s)))))))
  
  (defmacro sethash (k v hash)
  
negative.code: (defparameter *last-compiled* nil)
  (defparameter *c-synonyms* (make-hash-table))
  
  (defun pairify (xs)
    (if (null xs)
        nil
        (cons
          (list (car xs) (cadr xs))
          (pairify (cddr xs)))))
  
  (defmacro macropairs (m &rest xs)
    `(progn
       ,@(mapcar #'(lambda (x) `(,m ,@x)) (pairify xs))))
  
  (defmacro sethash (k v hash)
    `(setf (gethash ,k ,hash) ,v))
  
  