From 2e9e3bab7a53c4fc6c949bb492a93a8d58949505 Mon Sep 17 00:00:00 2001
From: Alex Wood <aeshtaer@gmail.com>
Date: Wed, 18 Oct 2023 09:52:07 -0400
Subject: [PATCH] Define UNDEFINED-CLASS condition

Already used by FIND-CLASS but lacking definition. Oops.
---
 Code/conditions.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Code/conditions.lisp b/Code/conditions.lisp
index 5239a7d..2440666 100644
--- a/Code/conditions.lisp
+++ b/Code/conditions.lisp
@@ -84,3 +84,9 @@
                       but the name is not defined as a function~@
                       or a macro."
                      (name condition)))))
+
+(define-condition env:undefined-class (cell-error)
+  ()
+  (:report (lambda (condition stream)
+             (format stream "There is no class named ~s."
+                     (cell-error-name condition)))))