From 21d0c96bd43aa2cc5f8546af2c2953d993e9986e Mon Sep 17 00:00:00 2001 From: jsancho Date: Fri, 31 Dec 2010 13:13:55 +0000 Subject: [PATCH] --- gacela_objects.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/gacela_objects.lisp b/gacela_objects.lisp index 7ab8eb7..c3f9ea2 100755 --- a/gacela_objects.lisp +++ b/gacela_objects.lisp @@ -81,10 +81,9 @@ object)) (defmacro make-object (name attr bhv &body look) - `(let ((object - '(:name ,name :attr ,(make-object-attributes attr) :bhv ,(make-object-behaviour bhv) :look (lambda () ,@look)))) - (add-object object) - object)) + `(let ((attr ,(make-object-attributes attr) bhv ,(make-object-behaviour bhv))) + (defun ,name (option) ,@look) + )) (defun make-object-attributes (attr) (cond ((or (null attr) (atom attr)) nil) -- 2.39.5