(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 --------------------------------------------------