From db916db6765cdc485c566c706f2672aa5183fc69 Mon Sep 17 00:00:00 2001
From: AJ Rossini <blindglobe@gmail.com>
Date: Sun, 11 Nov 2007 12:00:36 +0100
Subject: [PATCH] Experimenting with defproto, want to remove compiler
 challenges.

---
 lsobjects.lsp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lsobjects.lsp b/lsobjects.lsp
index 0427b9a..cfd7ce2 100644
--- a/lsobjects.lsp
+++ b/lsobjects.lsp
@@ -584,8 +584,8 @@ a list of objects. IVARS and CVARS must be lists."
 	 ,namesym))))
 
 
-#|
-(defmacro defproto (name &optional ivars cvars parents doc)
+
+(defmacro defproto2 (name &optional ivars cvars parents doc)
   "Syntax (defproto name &optional ivars cvars (parent *object*) doc)
 Makes a new object prototype with instance variables IVARS, 'class'
 variables CVARS and parents PARENT. PARENT can be a single object or
@@ -604,7 +604,7 @@ a list of objects. IVARS and CVARS must be lists."
 					    nil)))
 	    (make-prototype ,obsym ,namesym ,ivars ,cvars ,doc t)
 	    ,namesym)))))
-|#
+
 
 
 
-- 
2.11.4.GIT