anchor.diff:  ;;;;
   ;;;; Erlang function ("Fun")
   ;;;;
  -    
  +
   ;; FUN_EXT
   ;; +-----+---------+-----+--------+-------+------+-----------+
   ;; |  1  |     4   |     |        |       |      |           |
  
positive.code: 	(index (bytes-to-uint32 (+ 21 pos)))
  	(free-vars-length (bytes-to-uint32 bytes (+ 25 pos))))
      (multiple-value-bind* (((module pos1) (decode-erlang-atom bytes (+ 29 pos)))
  			   ((old-index pos2) (decode-erlang-integer bytes pos1))
  			   ((old-uniq pos3) (decode-erlang-integer bytes pos2))
  			   ((pid pos4) (decode-erlang-pid bytes pos3)))
        (loop
  	 repeat free-vars-length
  
negative.code: 						  :uniq uniq
  						  :index index
  						  :module module
  						  ;:old-index old-index
  						  ;:old-uniq old-uniq
  						  :pid pid
  						  :free-vars free-vars)
  				   p)) )))))
  