         adjust-hue (bind-keyword-param adjust-hue Number 0)
         adjust-saturation (bind-keyword-param adjust-saturation Number 0)
         adjust-lightness (bind-keyword-param adjust-lightness Number 0)]
-    (if-not (some (partial satisfies? IParam) [c r g b h s l adjust-hue adjust-saturation adjust-lightness])
+    (if (not-any? param? [c r g b h s l adjust-hue adjust-saturation adjust-lightness])
       ;; Optimize the degenerate case of all constant parameters
       (let [result-color (atom c)]
         (if (seq (filter identity [r g b]))

  (let [min (bind-keyword-param min Number 0)
        max (bind-keyword-param max Number 255)
        metronome (bind-keyword-param metronome Metronome (:metronome *show*))]
    (if-not (some (partial satisfies? IParam) [min max metronome])
      ;; Optimize the simple case of all constant parameters
      (let [range (- max min)
            dyn (boolean frame-dynamic)

  (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
