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