From 8a51ba81c7df6b0b6dab7cf4b35b5ca084b653ba Mon Sep 17 00:00:00 2001 From: colin Date: Tue, 10 Dec 2024 07:11:02 -0800 Subject: Replaced defclass-std with def --- examples/09-ghoulspree.lisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'examples/09-ghoulspree.lisp') diff --git a/examples/09-ghoulspree.lisp b/examples/09-ghoulspree.lisp index 33a5423..04b1043 100644 --- a/examples/09-ghoulspree.lisp +++ b/examples/09-ghoulspree.lisp @@ -2,20 +2,20 @@ (defpackage #:ww.examples/9 (:use #:cl) - (:export #:start) - (:import-from #:defclass-std #:defclass/std)) + (:export #:start)) (in-package #:ww.examples/9) ;;; CLASSES -(defclass/std ghoulspree (ww::application) - ((ghouls-per-click :std 20) - (collision-on-p :std t) - (gravity-on-p :std nil))) +(def:class ghoulspree (ww:application) + (ghouls-per-click :type fixnum :initform 20) + (collision-on-p :type boolean :initform t) + (gravity-on-p :type boolean :initform nil)) + +(def:class ghoul (ww:image) + (dx dy dr :type fixnum :initform 0)) -(defclass/std ghoul (ww:image) - ((dx dy dr :std))) ;;; UTILITY FUNCTIONS -- cgit v1.2.3