   {:pre [(some? *show*)]}
   (let [pan (bind-keyword-param pan Number 0)
         tilt (bind-keyword-param tilt Number 0)]
-    (if-not (some (partial satisfies? IParam) [pan tilt])
+    (if (not-any? param? [pan tilt])
       ;; Optimize the degenerate case of all constant parameters
       (Vector2d. (make-radians pan radians) (make-radians tilt radians))
       ;; Handle the general case of some dynamic parameters

  (let [x (bind-keyword-param x Number 0)
        y (bind-keyword-param y Number 0)
        z (bind-keyword-param z Number 2)]
    (if-not (some (partial satisfies? IParam) [x y z])
      ;; Optimize the degenerate case of all constant parameters
      (Point3d. x y z)
      ;; Handle the general case of some dynamic parameters

  (let [x (bind-keyword-param x Number 0)
        y (bind-keyword-param y Number 0)
        z (bind-keyword-param z Number 1)]
    (if (not-any? param? [x y z])
      ;; Optimize the degenerate case of all constant parameters
      (Vector3d. x y z)
      ;; Handle the general case of some dynamic parameters
