Add optimize options to skip?.

fukamachi · Jul 31, 2015 · 3225e4e · 3225e4e
1 parent 759dfae
commit 3225e4e
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/proc-parse.lisp b/src/proc-parse.lisp
@@ -283,8 +283,9 @@
                    (skip* ,@elems)))
               (skip? (&rest elems)
                 (check-skip-elems elems)
-                `(when (skip-conditions ,',elem ,elems)
-                   (or (advance*) (go :eof))))
+                `(locally (declare (optimize (speed 3) (safety 0) (debug 0) (compilation-speed 0)))
+                   (when (skip-conditions ,',elem ,elems)
+                     (or (advance*) (go :eof)))))
               (skip-until (fn)
                 `(loop until ,(if (symbolp fn)
                                   `(,fn (get-elem ,',elem))