diff options
| author | Bruno Cichon <ebrasca.ebrasca@gmail.com> | 2015-08-31 23:57:33 +0200 |
|---|---|---|
| committer | Bruno Cichon <ebrasca.ebrasca@gmail.com> | 2015-08-31 23:57:33 +0200 |
| commit | 24cb0d21c857d686eefa801d097bd60a854dc227 (patch) | |
| tree | cba402854f15609bfaadf594b2eb0104b60e9cb2 /src/l-system.lisp | |
| parent | 2f99d51951296d2651847bfb95f98d280dcfd9b9 (diff) | |
Small fix
Diffstat (limited to 'src/l-system.lisp')
| -rw-r--r-- | src/l-system.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/l-system.lisp b/src/l-system.lisp index c5255a5..79122c7 100644 --- a/src/l-system.lisp +++ b/src/l-system.lisp @@ -23,7 +23,9 @@ (defun generate-l-system (rules) "Make lambda Lindenmayer system" - `(lambda (atom) (case atom ,@(make-case-clauses-from-rules rules)))) + `(lambda (atom) (case atom + ,@(make-case-clauses-from-rules rules) + (t (list atom))))) (defmacro l-system (&rest rules) (generate-l-system rules)) |