Permalink
Browse files

Add function for clearing parser cache.

  • Loading branch information...
1 parent 59e99d3 commit 3b64af27c8fd9b5765978c2719f3b5c14a7ff288 @Ramarren committed Jan 15, 2010
Showing with 5 additions and 1 deletion.
  1. +3 −0 cache.lisp
  2. +2 −1 package.lisp
View
@@ -2,6 +2,9 @@
(defvar *parser-cache* (make-hash-table))
+(defun drop-parser-cache ()
+ (clrhash *parser-cache*))
+
;; parser caching
(defmacro cached? (parser label)
View
@@ -1,6 +1,7 @@
(defpackage :parser-combinators
(:use :cl :iterate :alexandria)
- (:export #:result
+ (:export #:drop-parser-cache
+ #:result
#:zero
#:item
#:sat

0 comments on commit 3b64af2

Please sign in to comment.