diff options
| author | Bruno Cichon <ebrasca.ebrasca@gmail.com> | 2016-07-13 20:59:48 +0200 |
|---|---|---|
| committer | Bruno Cichon <ebrasca.ebrasca@gmail.com> | 2016-07-13 20:59:48 +0200 |
| commit | dc3586f6bb9340c9e06ce31f684c2e23ed3ce988 (patch) | |
| tree | 9588227700135c16473da5e78846397a3daa649f /src/l-system.lisp | |
| parent | d1b75911a434f727a5b37381aa0dc7a80447a7f1 (diff) | |
Miscellaneous renaming. Deleted unrelated code.
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)) |