Define UNDEFINED-CLASS condition

Already used by FIND-CLASS but lacking definition. Oops.
s-expressionists · Oct 18, 2023 · 2e9e3ba · 2e9e3ba
1 parent 217671e
commit 2e9e3ba
Showing 1 changed file with 6 additions and 0 deletions.
diff --git 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)))))