anchor.diff:  
   (defun cl-tree (x)
     (cond ((null x) nil)
  +        ((symbolp x) (cl-package-delimiter x))
           ((consp (car x)) (cons (cl-tree (car x)) (cl-tree (cdr x))))
           (t (cons (cl-package-delimiter (car x)) (cl-tree (cdr x))))))
   
  
positive.code: 
  (defun careq (x y)
    (and (consp x) (eq (car x) y)))
  
  ; TODO
  (defvar *wa-gensym-count* 0)
  (defun wa-gensym ()
    (incf *wa-gensym-count*)
    (intern (format nil "GS~D" *wa-gensym-count*)))
  
  ; literal --------------------------------------------------------------------
  
  
negative.code:                 do (let ((cl (wc x nil)))
                       (eval cl)
                       (if debug (format op "#|~%~S~%|#~%" x))
                       (format op "~S~2%" cl))))))))
  