diff --git a/src/proc-parse.lisp b/src/proc-parse.lisp
index ecbcff3..153294b 100644
--- 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))