anchor.diff:       (type-of object))))
   
   (defun parse-optimized-call-args (forms)
  -  (let ((type nil))
  -    (iter (for form in forms)
  +  (if (some #'keywordp forms)
  +      (let ((type nil))
  +        (iter (for form in forms)
             (cond
               ((keywordp form)
                (when type
  
positive.code:              (collect form into clean-forms)
               (setf type nil)))
            (finally
             (return (values types clean-forms))))))
  
  (deftype cont-fun ()
    `(function * (values t &optional)))
  
  (defun make-optimized (instance method
                         &key instance-resolver args resolver
                              env)
    (flet ((number-of-non-constantp (list)
  
negative.code: 
  (defun %interpret-call (allow-override-p instance method args)
    (let ((instance (full-resolve-this instance)))
      (funcall (resolve-call allow-override-p instance method args nil)
               instance
               args)))
  