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 --- src/region.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/region.lisp') diff --git a/src/region.lisp b/src/region.lisp index 4f22763..4b86aeb 100644 --- a/src/region.lisp +++ b/src/region.lisp @@ -2,8 +2,8 @@ (in-package :wheelwork) -(defclass/std region () - ((left bottom top right :with :std 0))) +(def:class region () + (left bottom top right :prefix :initform 0)) (defmethod width ((region region)) (- (region-right region) (region-left region))) -- cgit v1.2.3