[movitz-cvs] CVS update: movitz/load.lisp

[Frode Vatvedt Fjeld]

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 at 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"