Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv7800 Modified Files: los-closette.lisp Log Message: break rather than warn when auto-bootstrapping CLOS. Date: Sat Sep 25 17:38:48 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette.lisp diff -u movitz/losp/muerte/los-closette.lisp:1.20 movitz/losp/muerte/los-closette.lisp:1.21 --- movitz/losp/muerte/los-closette.lisp:1.20 Thu Sep 23 11:11:26 2004 +++ movitz/losp/muerte/los-closette.lisp Sat Sep 25 17:38:47 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Tue Jul 23 14:29:10 2002 ;;;; -;;;; $Id: los-closette.lisp,v 1.20 2004/09/23 09:11:26 ffjeld Exp $ +;;;; $Id: los-closette.lisp,v 1.21 2004/09/25 15:38:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -779,7 +779,9 @@ (let ((x (std-gf-classes-to-emf-table gf))) (cond ((not x) - (warn "Auto-bootstrapping CLOS.") + (unless (get 'clos-bootsrap 'breaking-on-auto-bootstrap) + (setf (get 'clos-bootsrap 'breaking-on-auto-bootstrap) t) + (break "Auto-bootstrapping CLOS.")) (clos-bootstrap) (unless (get 'clos-bootstrap 'have-bootstrapped) (error "Giving up auto-bootstrapping of CLOS."))