Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv20219 Modified Files: los-closette.lisp Log Message: Fixed typo in "bootstrap". Date: Mon Dec 20 14:42:51 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette.lisp diff -u movitz/losp/muerte/los-closette.lisp:1.23 movitz/losp/muerte/los-closette.lisp:1.24 --- movitz/losp/muerte/los-closette.lisp:1.23 Tue Nov 23 17:06:37 2004 +++ movitz/losp/muerte/los-closette.lisp Mon Dec 20 14:42:51 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.23 2004/11/23 16:06:37 ffjeld Exp $ +;;;; $Id: los-closette.lisp,v 1.24 2004/12/20 13:42:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -786,8 +786,8 @@ (let ((x (std-gf-classes-to-emf-table gf))) (cond ((not x) - (unless (get 'clos-bootsrap 'breaking-on-auto-bootstrap) - (setf (get 'clos-bootsrap 'breaking-on-auto-bootstrap) t) + (unless (get 'clos-bootstrap 'breaking-on-auto-bootstrap) + (setf (get 'clos-bootstrap 'breaking-on-auto-bootstrap) t) (break "Auto-bootstrapping CLOS.")) (clos-bootstrap) (unless (get 'clos-bootstrap 'have-bootstrapped)