Lots more has happened.
[sod] / class-builder.lisp
index 2d77d70..7acbeae 100644 (file)
     (check-method-type method message type)))
 
 ;;;--------------------------------------------------------------------------
-;;; Builder macro.
+;;; Builder macros.
 
 (defmacro define-sod-class (name (&rest superclasses) &body body)
   (let ((plist nil)
                                                  ,@plist))))
         ,@body
         (finalize-sod-class ,classvar)
-        (record-sod-class ,classvar)))))
-
-#+test
-(define-sod-class "AbstractStack" ("SodObject")
-  :nick 'abstk
-  (message "emptyp" (fun int))
-  (message "push" (fun void ("item" (* void))))
-  (message "pop" (fun (* void)))
-  (method "abstk" "pop" (fun void) #{
-     assert(!me->_vt.emptyp());
-   }
-   :role :before))
+        (add-to-module *module* ,classvar)))))
 
 ;;;----- That's all, folks --------------------------------------------------