[mcclim-cvs] CVS update: mcclim/mcclim.asd

[Andreas Fuchs]

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

Modified Files:
	mcclim.asd 
Log Message:
Make Allegro CL a McCLIM/asdf-supported lisp.

Thanks for the patch go to rpgoldman.

Date: Wed Apr 20 00:35:42 2005
Author: afuchs

Index: mcclim/mcclim.asd
diff -u mcclim/mcclim.asd:1.4 mcclim/mcclim.asd:1.5
--- mcclim/mcclim.asd:1.4	Tue Mar  1 16:46:13 2005
+++ mcclim/mcclim.asd	Wed Apr 20 00:35:42 2005
@@ -48,6 +48,21 @@
   #+mp (when (eq mp::*initial-process* mp::*current-process*)
 	 (format t "~%~%You need to run (mp::startup-idle-and-top-level-loops) to start up the multiprocessing support.~%~%")))
 
+;;; Make CLX asdf-loadable on Allegro 6.2
+;;; possibly this should be further refined to funciton properly for
+;;; Allegro on Windows platforms. [2005/04/18:rpg]
+#+allegro
+(progn
+  (defclass requireable-system (asdf:system)
+       ())
+  (defmethod asdf:perform ((op asdf:load-op) (system requireable-system))
+    (require (intern (slot-value system 'asdf::name) "KEYWORD")))
+  (defmethod asdf::traverse ((op asdf:load-op) (system requireable-system))
+    (list (cons op system)))  
+  (defsystem :clx
+    :class requireable-system))
+
+
 (pushnew :clim *features*)
 (pushnew :mcclim *features*)
 
@@ -216,7 +231,7 @@
      ))
 
 (defsystem :clim-clx
-    :depends-on (:clim #+(or sbcl openmcl ecl) :clx)
+    :depends-on (:clim #+(or sbcl openmcl ecl allegro) :clx)
     :components
     ((:module "Backends/CLX"
               :pathname #.(make-pathname :directory '(:relative "Backends" "CLX"))
@@ -276,7 +291,7 @@
     :depends-on (:clim
                  ;; If we're on an implementation that ships CLX, use
                  ;; it. Same if the user has loaded CLX already.
-                 #+(or sbcl openmcl ecl clx) :clim-clx
+                 #+(or sbcl openmcl ecl clx allegro) :clim-clx
                  #+gl                        :clim-opengl
                  ;; OpenMCL and MCL support the beagle backend (native
                  ;; OS X look&feel on OS X).