Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Experimenting with defproto, want to remove compiler challenges.

  • Loading branch information...
commit db916db6765cdc485c566c706f2672aa5183fc69 1 parent d602ad4
@blindglobe authored
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)))))
-|#
+
Please sign in to comment.
Something went wrong with that request. Please try again.