         (let [n (read rdr true nil true)]
           (if (= n '&)
             (register-arg -1)
-            (if (not (instance? Number n))
+            (if-not (instance? Number n)
               (throw (IllegalStateException. "Arg literal must be %, %& or %integer"))
               (register-arg n))))))))
 

    :else (match-int s (doto (.matcher int-pattern s) .matches))))

(defn- parse-symbol [^String token]
  (when (not (= "" token))
    (let [ns-idx (.indexOf token "/")
          ns (if-not (== -1 ns-idx) (.substring token 0 ns-idx))]
      (if (nil? ns)

      (let [token (read-token rdr ch)]
        (cond

          (== 1 (.length token))  (Character/valueOf (.charAt token 0))

          (= token "newline") \newline
          (= token "space") \space
