Add support for modern Allegro CL. Should be good for versions >= 6.2.

darcs-hash:20060113053525-6497f-b5faed2ec4b18c47caa091c1dc5749c6fe16e1c1.gz

clx.asd

@@ -43,8 +43,9 @@
     ((:file "package")
      (:file "depdefs")
      (:file "clx")
-     #-(or openmcl) (:file "dependent")
+     #-(or openmcl allegro) (:file "dependent")
      #+openmcl (:file "dep-openmcl")
+     #+allegro (:file "dep-allegro")
      (:file "macros")
      (:file "bufmac")
      (:file "buffer")
@@ -61,6 +62,8 @@
      (:file "manager")
      (:file "image")
      (:file "resource")
+     #+allegro
+     (:file "excldep" :pathname "excldep.lisp")
      (:module extensions
 	      :pathname #.(make-pathname :directory '(:relative))
 	      :components
@@ -102,7 +105,6 @@
      (:legacy-file "exclREADME")
      (:legacy-file "exclcmac" :pathname "exclcmac.lisp")
      (:legacy-file "excldepc" :pathname "excldep.c")
-     (:legacy-file "excldep" :pathname "excldep.lisp")
      (:legacy-file "sockcl" :pathname "sockcl.lisp")
      (:legacy-file "socket" :pathname "socket.c")
      (:legacy-file "defsystem" :pathname "defsystem.lisp")

demo/clx-demos.lisp

@@ -36,11 +36,11 @@
        (unless *display*
 	 #+:cmu
 	 (multiple-value-setq (*display* *screen*) (ext:open-clx-display))
-	 #+sbcl
+	 #+(or sbcl allegro)
 	 (progn
 	   (setf *display* (xlib::open-default-display))
 	   (setf *screen* (xlib:display-default-screen *display*)))
-	 #-(or cmu sbcl)
+	 #-(or cmu sbcl allegro)
 	 (progn
 	   ;; Portable method
 	   (setf *display* (xlib:open-display (machine-instance)))