From 8204a531fb462236005f956d3d93f0662137af4f Mon Sep 17 00:00:00 2001
From: AJ Rossini <blindglobe@gmail.com>
Date: Wed, 21 Nov 2007 22:02:05 +0100
Subject: [PATCH] but not really...

---
 lsobjects.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lsobjects.lsp b/lsobjects.lsp
index 3a2dd2e..442d9af 100644
--- a/lsobjects.lsp
+++ b/lsobjects.lsp
@@ -655,7 +655,7 @@ variables CVARS and parents PARENT. PARENT can be a single object or
 a list of objects. IVARS and CVARS must be lists."
   (if (boundp name)
       (error "can not rebind a prototype object yet")
-      (let ((namesym (gensym)
+      (let ((namesym (gensym))
 	    (obsym (gensym))
 	    (parsym (gensym)))
 	`(progn 
@@ -667,7 +667,7 @@ a list of objects. IVARS and CVARS must be lists."
 			     (list ,@parsym)) ;; should this be ,@parsym ? 
 			 nil)))
 	    (make-prototype ,obsym ,name ,ivars ,cvars ,doc t)
-	    ,name))))))
+	    ,name)))))
 
 ;; recall: 
 ;; , => turn on evaluation again (not macro substitution)
-- 
2.11.4.GIT