diff options
| author | Bruno Cichon <ebrasca.ebrasca@openmailbox.org> | 2017-06-18 00:20:12 +0200 |
|---|---|---|
| committer | Bruno Cichon <ebrasca.ebrasca@openmailbox.org> | 2017-06-18 00:20:12 +0200 |
| commit | 02a60cb355bdc7c69092e63188dbab5f0289c73f (patch) | |
| tree | 1c3294249ece70400dacbc1c485bacc2a8370cd3 /src/l-system.lisp | |
| parent | 748ea5971487327558aad4f21ba82a2dd0f3ba4f (diff) | |
Diffstat (limited to 'src/l-system.lisp')
| -rw-r--r-- | src/l-system.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
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)) |