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 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/l-system.lisp')

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))
-- 
cgit v1.2.3-54-g00ecf