Add function for clearing parser cache.

Ramarren · Jan 15, 2010 · 3b64af2 · 3b64af2
1 parent 59e99d3
commit 3b64af2
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/cache.lisp b/cache.lisp
@@ -2,6 +2,9 @@
 
 (defvar *parser-cache* (make-hash-table))
 
+(defun drop-parser-cache ()
+  (clrhash *parser-cache*))
+
 ;; parser caching
 
 (defmacro cached? (parser label)

diff --git a/package.lisp b/package.lisp
@@ -1,6 +1,7 @@
 (defpackage :parser-combinators
     (:use :cl :iterate :alexandria)
-  (:export #:result
+  (:export #:drop-parser-cache
+           #:result
            #:zero
            #:item
            #:sat