Skip to content
Browse files

Experimenting with defproto, want to remove compiler challenges.

  • Loading branch information...
1 parent d602ad4 commit db916db6765cdc485c566c706f2672aa5183fc69 @blindglobe committed Nov 11, 2007
Showing with 3 additions and 3 deletions.
  1. +3 −3 lsobjects.lsp
View
6 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)))))
-|#
+

0 comments on commit db916db

Please sign in to comment.
Something went wrong with that request. Please try again.