[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	lisp-syntax-swank.lisp 
Log Message:
"Gracefully" handle older Swanks.


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swank.lisp	2007/12/19 01:19:26	1.9
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swank.lisp	2008/01/09 22:12:59	1.10
@@ -30,8 +30,11 @@
 
 ;; We need these modules loaded.
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (swank:swank-require :swank-c-p-c)
-  (swank:swank-require :swank-arglists))
+  ;; Oh my! This is so we "gracefully" handle older Swanks that do not
+  ;; have `swank-require'. We just hope they have the symbols we need
+  ;; anyway.
+  (ignore-errors (swank:swank-require :swank-c-p-c)
+                 (swank:swank-require :swank-arglists)))
 
 ;; If this file is loaded, make local Swank the default way of
 ;; interacting with the image.