anchor.diff:                         '|union StackItem|
                          'ptr)
                         binding)
  -                (cffi:foreign-funcall-pointer
  -                 trampfun
  -                 ()
  -                 :short 0
  -                 :pointer new-object
  -                 :pointer stack2
  -                 :void))
  +                (call-class-fun trampfun 0 new-object stack2))
                 (setf (qobject-pointer instance) new-object))))
     (cache! instance))
   
  
positive.code:                             :pointer :unborn))
      (t `(full-resolve-ctor-this ,instance))))
  
  (declaim (inline %%call))
  (defun %%call (casted-instance-pointer
                 args
  
negative.code:   (funcall arglist-marshaller
             args
             (lambda (stack)
               (call-class-fun trampfun arg-for-trampfun casted-instance-pointer
                               stack)
               (funcall return-value-function stack))))
  
  (declaim (inline %%call/override))
  