[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv32321

Modified Files:
	mcclim.asd 
Log Message:
Added nasty hack to inform CLISP users of their sub-par CLX, and offer a fix.


--- /project/mcclim/cvsroot/mcclim/mcclim.asd	2007/12/20 08:07:16	1.65
+++ /project/mcclim/cvsroot/mcclim/mcclim.asd	2007/12/21 12:31:56	1.66
@@ -383,6 +383,19 @@
                (:file "medium" :depends-on ("port" "keysyms" "package"))
                (:file "graft" :depends-on ("port" "package"))
                (:file "frame-manager" :depends-on ("medium" "port" "package"))))))
+#+clisp
+(defmethod asdf::traverse :around ((op compile-op) (c (eql (find-system :clim-clx))))
+  ;; Just some random symbol I know is unexported in CLISP's CLX.
+  (if (eq (nth-value 1 (find-symbol "SET-SELECTION-OWNER" :xlib))
+       :external)
+      (call-next-method)
+      (restart-case (error "Your CLX is not capable of running the McCLIM CLX backend")
+        (load-clx-via-asdf ()
+         :report "Try replacing your CLX with a CLX loaded through ASDF, hopefully this will be Telent CLX."
+         (ext:without-package-lock ("XLIB")
+           (delete-package :xlib)
+           (asdf:oos 'asdf:load-op :clx))
+         (call-next-method)))))
 
 (defsystem :clim-beagle
   :depends-on (clim)