[mcclim-cvs] CVS update: mcclim/Lisp-Dep/fix-sbcl.lisp

[Christophe Rhodes]

Update of /project/mcclim/cvsroot/mcclim/Lisp-Dep
In directory common-lisp.net:/tmp/cvs-serv32041/Lisp-Dep

Modified Files:
	fix-sbcl.lisp 
Log Message:
SBCL / OpenMCL(?) build fixes

Fix the perennially annoying duplicate component error in the
Scigraph defsystem (name the components by the full namestring, which 
should be unique)

While I'm at it, fix the annoyance over static / dynamic packages: for
sbcl, clim-lisp-patch and clim-mop are dynamic packages, so they 
shouldn't be created by DEFPACKAGE (because reevaluating the defpackage 
subsequently, say by recompiling stuff, then invokes undefined 
behaviour)

Date: Fri Aug 19 23:34:43 2005
Author: crhodes

Index: mcclim/Lisp-Dep/fix-sbcl.lisp
diff -u mcclim/Lisp-Dep/fix-sbcl.lisp:1.8 mcclim/Lisp-Dep/fix-sbcl.lisp:1.9
--- mcclim/Lisp-Dep/fix-sbcl.lisp:1.8	Mon Feb 23 11:48:28 2004
+++ mcclim/Lisp-Dep/fix-sbcl.lisp	Fri Aug 19 23:34:43 2005
@@ -2,10 +2,11 @@
   (when (find-package "SB-MOP")
     (pushnew :sb-mop *features*)))
 
-(defpackage #:clim-mop
-  (:use #+sb-mop #:sb-mop #-sb-mop #:sb-pcl)
-  #-sb-mop
-  (:shadowing-import-from #:sb-pcl #:eql-specializer-object))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (unless (find-package '#:clim-mop)
+    (make-package '#:clim-mop :use '(#+sb-mop #:sb-mop
+                                     #-sb-mop #:sb-pcl))
+    (shadowing-import 'sb-pcl::eql-specializer-object '#:clim-mop)))
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (loop for sym being the symbols of :clim-mop