anchor.diff:  
   (defun cps-body (x)
     (!? (cps-split-body x)
  -      (+ (cps-make-funs (carlist !) (cps-tag-names !) (filter #'cps-subfuns (cdrlist !)))
  +      (+ (cps-make-funs :names     (carlist !)
  +                        :tag-names (cps-tag-names !)
  +                        :bodies    (filter #'cps-subfuns (cdrlist !)))
            `((%= nil (,!..))))
         x))
   
  
positive.code: 
  (defun cps-call? (x)
    (& (%=-funcall? x)
       (!? (get-funinfo (car (%=-value x)))
           (funinfo-cps? !))))
  
  (defun cps-splitpoint? (x)
    (| (number? x)
  
negative.code:                (list (cons ! _.)))]
            x))
  
  (defun cps-make-funs (&key names tag-names bodies)
    (let last-place nil
      (mapcan [with (name names.
                     args (? last-place
  