anchor.diff:                           :num-args (second args))
             (vm-stack vm))
       ;; for the pushed callable (5 fields)
  -    (increment-cells-quota vm 5) 
  +    (increment-cells-quota vm 5)
       (inc-pc vm)))
   
   (defun handle-new-frame (vm instruction)
  
positive.code:                                         ; instructions, skip them.
             (handle-nop vm instruction))
            (t (error "Shovel internal WTF: unknown instruction '~a'." opcode)))))
      (locally
          (declare (inline increment-vm-ticks)
                   (optimize (speed 1)))
        (increment-vm-ticks vm)))
    (vm-is-live vm))
  
  (defun increment-vm-ticks (vm)
    (declare (type vm vm))
    (incf (vm-executed-ticks vm))
  
negative.code: (defun step-vm (vm)
    (declare (optimize speed (safety 0))
             (type vm vm))
    (check-vm-without-error vm)
    (check-ticks-quota vm)
    (check-cells-quota vm)
    (when (vm-is-live vm)
      (let ((instruction (aref (the (simple-array instruction *) (vm-bytecode vm))
                               (vm-program-counter vm))))
  