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.