[mcclim-cvs] CVS update: mcclim/system.lisp

[Robert Strandh]

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

Modified Files:
	system.lisp 
Log Message:
Patch from Robert P. Goldman allowing the use of Allegro defsystem
without a clash with mk:defsystem.

Date: Tue Jan 18 04:20:16 2005
Author: rstrandh

Index: mcclim/system.lisp
diff -u mcclim/system.lisp:1.108 mcclim/system.lisp:1.109
--- mcclim/system.lisp:1.108	Tue Jan 18 02:58:08 2005
+++ mcclim/system.lisp	Tue Jan 18 04:20:15 2005
@@ -43,12 +43,15 @@
 (pushnew :clim *features*)
 (pushnew :mcclim *features*)
 
-#+mk-defsystem (use-package "MK")
++;;; I really didn't have good luck with this on Allegro, because
++;;; Allegro's CL-USER package uses it's EXCL stuff, which has its own
++;;; DEFSYSTEM. [2004/12/21:rpg]
++;;;#+mk-defsystem (use-package "MK")
 
 (defmacro clim-defsystem ((module &key depends-on) &rest components)
   `(progn
      #+mk-defsystem
-     (defsystem ,module
+     (mk:defsystem ,module
        :source-pathname *clim-directory*
        :source-extension "lisp"
        ,@(and depends-on `(:depends-on ,depends-on))