From 84d897e941a679529d4f00ea5952196c40656b5f Mon Sep 17 00:00:00 2001
From: Darren Bane <darren.bane@gmail.com>
Date: Mon, 12 Oct 2020 00:52:56 +0100
Subject: Trying to get cbasic.lisp to compile; WIP

---
 cutil.lisp | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'cutil.lisp')

diff --git a/cutil.lisp b/cutil.lisp
index 2f10099..e651b11 100644
--- a/cutil.lisp
+++ b/cutil.lisp
@@ -1,5 +1,5 @@
 (defpackage #:cutil
-  (:use #:common-lisp :closer-mop)
+  (:use #:common-lisp)
   (:export
    #:<abstract-class>))
 (in-package #:cutil)
@@ -7,8 +7,15 @@
 (defclass <abstract-class> (standard-class) ())
 (defmethod make-instance ((self <abstract-class>) &key)
   (error "Cannot instantiate abstract class ~A" (class-name self)))
+
+;;; These are copied from cl-abstract-classes in Quicklisp.
+;;; It turns out you do need both.
+;;; Maybe someday I'll understand why :-)
 (defmethod closer-mop:validate-superclass ((class <abstract-class>)
-					   (superclass standard-class))
+					   (superclass cl:standard-class))
+  t)
+(defmethod closer-mop:validate-superclass ((class cl:standard-class)
+					   (superclass <abstract-class>))
   t)
 
 (provide "cutil")
-- 
cgit 1.4.1-2-gfad0