Skip to content
Snippets Groups Projects
Commit 218243f7 authored by gerd's avatar gerd
Browse files

* src/pcl/braid.lisp (bootstrap-meta-braid): Add missing

	arg to error.
parent a66297f9
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment