anchor.diff:               (cached-values-bind (fun) ,resolver
                    ((,instance-qclass-sym :hash t)
                     (,instance-extra-sig-sym)
  -                  (method)
                     ,@(loop for sig in sigsyms
                             collect `(,sig :hash sxhash)))
                  (declare (type cont-fun fun))
  
positive.code:      (type-of object))))
  
  (defun parse-optimized-call-args (forms)
    (let ((type nil))
      (iter (for form in forms)
            (cond
              ((keywordp form)
               (when type
  
negative.code:                       (for sym in argsyms)
                        (unless (constantp arg env)
                          (collect `(,sym ,arg))))
                    (types ',fix-types)
                    (args ,(if (zerop (number-of-non-constantp args))
                               `',args
  