anchor.diff:                 (list (cons ! _.)))]
             x))
   
  -(defun cps-make-funs (names tag-names bodies)
  +(defun cps-make-funs (&key names tag-names bodies)
     (let last-place nil
       (mapcan [with (name names.
                      args (? last-place
  
positive.code:                           ,@(butlast _)
                            ,@(alet (car (last _))
                                (?
                                  (cps-call? !)  (with (val  (%=-value !)
                                                        name (? (%new? val)
                                                                .val.
                                                                val.)
                                                        args (? (%new? val)
                                                                ..val
                                                                .val))
                                                   (= last-place (%=-place !))
                                                   `((%= nil (,@(? (%new? val)
                                                                      `(%new))
                                                                  ,name
                                                                  ,(| .names. 'cps-identity)
                                                                  ,@args))))
                                  (%%go? !)      `((%= nil (,(assoc-value .!. tag-names))))
                                  (%%go-cond? !) `((,(? (%%go-nil? !)
                                                        '%%call-nil
  
negative.code:            (format t "; CPS transforming ~A.~%" name)
             (list (copy-lambda x :args (. '~%cont args) :body (cps-body body))
                   `(%= (%slot-value ,name _cps-transformed?) t)))
           (list (copy-lambda x))))))
  
  (defun cps-subfuns (x)
    (when x
      (+ (? (named-lambda? x.)
            (cps-fun x.)
            (list x.))
         (cps-subfuns .x))))
  
  (defun cps (x)
  