Trying to debug abstract classes, WIP

1 files changed, 6 insertions, 3 deletions

diff --git a/cutil.lisp b/cutil.lisp
index 0b569e2..2f10099 100644
--- a/cutil.lisp
+++ b/cutil.lisp
@@ -1,11 +1,14 @@
 (defpackage #:cutil
-  (:use #:common-lisp)
+  (:use #:common-lisp :closer-mop)
   (:export
    #:<abstract-class>))
 (in-package #:cutil)
 
-(defclass <abstract-class> () ())
+(defclass <abstract-class> (standard-class) ())
 (defmethod make-instance ((self <abstract-class>) &key)
-  (error "Cannot instantiate abstract class ~A" (class-name c)))
+  (error "Cannot instantiate abstract class ~A" (class-name self)))
+(defmethod closer-mop:validate-superclass ((class <abstract-class>)
+					   (superclass standard-class))
+  t)
 
 (provide "cutil")