anchor.diff:            (mapcar #'(lambda (y) (f/list/n y (1- n))) (f/list x)))))
   
   (defun strsof (xs)
  -    (format nil "~{~a~}" xs))
  +  (format nil "~{~a~}" xs))
   
   (defun chs->str (x)
  -    (strsof x))
  +  (strsof x))
   
   (defun str->chs (x)
  -    (loop for c across x collect c))
  +  (loop for c across x collect c))
   
   (defun replace-char (before after str)
  -    (chs->str (mapcar #'(lambda (x) (if (eq x before) after x)) (str->chs str))))
  +  (chs->str (mapcar #'(lambda (x) (if (eq x before) after x)) (str->chs str))))
   
   (defun numeric-string (x)
     (ignore-errors (numberp (read-from-string x))))
   
   (defun c-strify (x)
  -    (if (stringp x) x
  -        (let ((s (strof x)))
  -          (if (numeric-string s) s
  -              (if (eq (char s 0) #\!) (subseq s 1)
  -                  (replace-char #\- #\_ (string-downcase s)))))))
  +  (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)
  -    `(setf (gethash ,k ,hash) ,v))
  +  `(setf (gethash ,k ,hash) ,v))
   
   (defun addsyms (&rest syms)
  -    (read-from-string (strsof syms)))
  +  (read-from-string (strsof syms)))
   
   (defun macn (x &optional n)
  -    (def n 1)
  -    (if (zerop n) x (macn (macroexpand-1 x) (1- n))))
  +  (def n 1)
  +  (if (zerop n) x (macn (macroexpand-1 x) (1- n))))
   
   (defmacro def (a b) `(setf ,a (if ,a ,a ,b)))
   
  
positive.code: ; Copyright Jonathan Baca, 2016
  
  (defparameter *file-out* nil)
  (defparameter *exec-out* nil)
  
negative.code: 
  (defmacro func-syn (func syn)
    `(progn
       (defun ,syn (&rest args)
         (apply #',func args))
       (compile ',syn)))
  
  (defmacro cfunc-syn (func syn)
    `(func-syn ,(cnym func) ,(cnym syn)))
  