From bdb5e6cb89d2bebc94fa5ab01e4539af0adf0b5c Mon Sep 17 00:00:00 2001
From: Bruno Cichon <ebrasca.ebrasca@openmailbox.org>
Date: Sat, 22 Oct 2016 21:53:28 +0200
Subject: Fix small mistake in last commit.

---
 src/l-system.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/l-system.lisp b/src/l-system.lisp
index 591f43f..13d9992 100644
--- a/src/l-system.lisp
+++ b/src/l-system.lisp
@@ -18,7 +18,7 @@
 	(for func = (gethash symbol *l-system-clauses*))
 	(appending (if (functionp func)
 		       (apply func parameters)
-		       parameters))))
+		       (list `(,symbol ,@parameters))))))
 
 (defmacro setf-l-system-rule (symbol lambda)
   `(setf (gethash ,symbol *l-system-clauses*)
-- 
cgit v1.2.3