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