diff options
Diffstat (limited to 'src/l-system.lisp')
| -rw-r--r-- | src/l-system.lisp | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/l-system.lisp b/src/l-system.lisp index 743e5ea..80d6f81 100644 --- a/src/l-system.lisp +++ b/src/l-system.lisp @@ -1,7 +1,4 @@ ;;;; l-system.lisp -#| -(ql:quickload :l-system) -|# (in-package #:l-system) @@ -31,11 +28,11 @@ result)) (list clause)))))) -(defmacro deflsys (symbol vars &body body) +(defmacro -> (symbol vars &body body) `(def-l-system-clause ',symbol (lambda ,vars ,@body))) (defun def-l-system-clause (symbol lambda) (setf (gethash symbol *l-system-clauses*) - lambda)) + lambda)) |