anchor.diff:                  do (let ((cl (wc x nil)))
                        (eval cl)
                        (if debug (format op "#|~%~S~%|#~%" x))
  -                     (format op "~S~2%" cl)))
  -          (format op "~S~%" `(setf *wa-gensym-count* ,*wa-gensym-count*)))))))
  +                     (format op "~S~2%" cl))))))))
  
positive.code: 
  (defun cl-tree (x)
    (cond ((null x) nil)
          ((consp (car x)) (cons (cl-tree (car x)) (cl-tree (cdr x))))
          (t (cons (cl-package-delimiter (car x)) (cl-tree (cdr x))))))
  
  
negative.code:   (if (listp y)
        `(setf ,(wa-name x) (lambda (,@y) ,@(cl-tree body)))
        (let* ((wn (wa-name x)) (cn (cl-package-delimiter y)))
          (cond ((macro-function cn)  `(setf ,wn ,(macro-function cn)))
                ((symbol-function cn) `(setf ,wn ,(symbol-function cn)))
                (t                    `(setf ,wn ,cn))))))
  
  ; call -----------------------------------------------------------------------
  
  