From 02a60cb355bdc7c69092e63188dbab5f0289c73f Mon Sep 17 00:00:00 2001
From: Bruno Cichon <ebrasca.ebrasca@openmailbox.org>
Date: Sun, 18 Jun 2017 00:20:12 +0200
Subject: Add unset-rule.

---
 src/l-system.lisp | 5 +++++
 src/package.lisp  | 1 +
 2 files changed, 6 insertions(+)

(limited to 'src')

diff --git a/src/l-system.lisp b/src/l-system.lisp
index 2f39259..01e2a1d 100644
--- a/src/l-system.lisp
+++ b/src/l-system.lisp
@@ -42,3 +42,8 @@ It can expand to parametric grammar or to context sensitive grammar."
          #'(lambda ,(append vars '(&rest rest))
              (declare (ignorable rest))
              ,@body)))
+
+(defun unset-rule (symbol)
+  "Unset rules from grammar."
+  (setf (gethash symbol *l-system-clauses*)
+        nil))
diff --git a/src/package.lisp b/src/package.lisp
index c2c3fb4..7b7dbfe 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -4,5 +4,6 @@
   (:use #:cl #:iter)
   (:export #:l-system
   	   #:->
+           #:unset-rule
 	   #:parametric-grammar
 	   #:context-sensitive-grammar))
-- 
cgit v1.2.3-54-g00ecf