From 153ea77c5791620a4e2981cc3baeb4ac4ffb39c4 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Tue, 9 Jan 2001 05:21:22 +0000
Subject: [PATCH] o Catch missing slots in condition-reader-function, and
 signal an error.

---
 code/error.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/code/error.lisp b/code/error.lisp
index a49ebfa72..549832cbf 100644
--- a/code/error.lisp
+++ b/code/error.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.58 2000/10/25 17:16:49 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.59 2001/01/09 05:21:22 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -498,6 +498,8 @@
       (if (eq val *empty-slot*)
 	  (let ((actual-initargs (condition-actual-initargs condition))
 		(slot (find-slot (condition-class-cpl class) name)))
+	    (unless slot
+	      (error "Slot ~S of ~S missing." name condition))
 	    (dolist (initarg (condition-slot-initargs slot))
 	      (let ((val (getf actual-initargs initarg *empty-slot*)))
 		(unless (eq val *empty-slot*)
-- 
GitLab