From 218243f7d169ff8df9cccd2914206c102a86701a Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Sat, 16 Aug 2003 14:02:37 +0000
Subject: [PATCH] 	* src/pcl/braid.lisp (bootstrap-meta-braid): Add
 missing 	arg to error.

---
 pcl/braid.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/pcl/braid.lisp b/pcl/braid.lisp
index dc9536846..8ab0b7ca5 100644
--- a/pcl/braid.lisp
+++ b/pcl/braid.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.46 2003/06/18 09:23:09 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.47 2003/08/16 14:02:37 gerd Exp $")
 
 ;;;
 ;;; Bootstrapping the meta-braid.
@@ -199,7 +199,8 @@
 	      (dolist (slot slots)
 		(unless (eq (getf slot :allocation :instance) :instance)
 		  (error "~@<Slot allocation ~S is not supported ~
-                          in bootstrap.~@:>")))
+                          in bootstrap.~@:>"
+			 (getf slot :allocation))))
 	      
 	      (when (typep wrapper 'wrapper)
 		(setf (wrapper-instance-slots-layout wrapper)
-- 
GitLab