Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv25504
Modified Files: load.lisp Log Message: A "fix" for SBCL's defconstant annoyance, according to nyef's patch.
Date: Mon Jan 19 14:21:14 2004 Author: ffjeld
Index: movitz/load.lisp diff -u movitz/load.lisp:1.6 movitz/load.lisp:1.7 --- movitz/load.lisp:1.6 Mon Jan 19 06:23:41 2004 +++ movitz/load.lisp Mon Jan 19 14:21:14 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu Jan 15 18:40:58 2004 ;;;; -;;;; $Id: load.lisp,v 1.6 2004/01/19 11:23:41 ffjeld Exp $ +;;;; $Id: load.lisp,v 1.7 2004/01/19 19:21:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -63,8 +63,10 @@ (do () (nil) (with-simple-restart (retry "Retry loading ~S" path) (return - (load (or (compile-file path :print nil) - (error "Compile-file of ~S failed?" path))))))) + (handler-bind + (#+sbcl (sb-ext:defconstant-uneql #'continue)) + (load (or (compile-file path :print nil) + (error "Compile-file of ~S failed?" path)))))))) '("packages" "movitz" "parse"