anchor.diff:        (error "No applicable constructor ~A found for arguments ~A"
                (qclass-name class) args))
       (assert (eq class (qtype-class (qmethod-return-type method))))
  -    (with-tracing (method nil args)
  -      (apply #'values
  -             (call-with-marshalling
  -              (lambda (stack)
  -                (setf (qobject-pointer instance)
  -                      (%call-ctor method
  -                                  stack
  -				  (binding-for-ctor method instance)))
  -                (cache! instance)
  -                (list instance))
  -              (list-qmethod-argument-types method)
  -              args)))))
  +    (apply #'values
  +	   (call-with-marshalling
  +	    (lambda (stack)
  +	      (setf (qobject-pointer instance)
  +		    (%call-ctor method
  +				stack
  +				(binding-for-ctor method instance)))
  +	      (cache! instance)
  +	      (list instance))
  +	    (list-qmethod-argument-types method)
  +	    args))))
   
   (defun call (instance method &rest args)
     (%call t instance method args))
  
positive.code:         (error "not a static method"))
        (setf instance (null-qobject instance)))
      (let ((rtype (qmethod-return-type method)))
        (with-tracing (method instance args)
          (apply #'values
                 (call-with-marshalling
                  (lambda (stack &aux fun)
                    (cond
                      ((and allow-override-p
                            (setf fun
                                  (find-method-override instance method)))
                       (multiple-value-list (override fun instance method args)))
                      (t
                       (cffi:foreign-funcall-pointer
                        (qclass-trampoline-fun (qmethod-class method))
                        ()
                        :short (qmethod-arg-for-classfn method)
                        :pointer (qobject-pointer instance)
                        :pointer stack
                        :void)
                       (list (and (not (qtype-void-p rtype))
  				(unmarshal rtype stack))))))
                  (list-qmethod-argument-types method)
                  args))))))
  
  (defclass deleted-object (abstract-qobject)
    ())
  
negative.code: (defmethod new ((qclass string) &rest args)
    (apply #'new (find-qclass qclass) args))
  
  (defvar *pending-finalizations* nil)
  
  (defun finalize-if-matching-thread (thread ptr class description qp dynamicp)
  