anchor.diff:                  (pop (funinfo-vars !)))
                 (pop names)
                 (funinfo-var-add *funinfo* name)
  -              `((function ,name (,args ,@body))))]
  +              `((function ,name (,args ,@body)))]
               bodies)))
   
   (defun cps-body-without-tag (x)
  
positive.code: 
  (defun cps-make-funs (&key names tag-names bodies)
    (let last-place nil
      (mapcan [print (with (name         names.
                     args         (? last-place
                                     '(~%contret))
                     tag-to-name  [assoc-value ._. tag-names]
  
negative.code:                                       (clr last-place)
                                        `((%= ,! ~%contret)))
                                    ,@(butlast _)
                                    ,@(alet (car (last _))
                                        (?
                                          (cps-call? !)   (make-call !)
                                          (%%go? !)       (make-go !)
  