anchor.diff:  	  %%native %%string
   	  %%closure %closure
   	  %set-atom-fun
  -	  %function-prologue
  -	  %function-epilogue
  -	  %function-return
  +	  %function-prologue %function-return %function-epilogue
         %var %global
         %%comment)
     `(def-head-predicate ,x))
  
positive.code: (defun %=-funcall-of? (x name)                                                                                                                                             
    (& (%=-funcall? x)
       (eq name (car (%=-value x)))))
  
  (defun %slot-value-obj (x)
    .x.)
  
  (defun %slot-value-slot (x)
    ..x.)
  
  (defun has-return-value? (x)
    (not (| (vm-jump? x)
  
negative.code: (defun %=-place (x) .x.)
  (defun %=-value (x) ..x.)
  
  (defun %=-funcall? (x)
    (? (%=? x)
       (cons? (%=-value x))))
  