X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/c1e76b2d393d4a7d1c61c8d1711f233aff0fd456..974ec2b74e59f2415942e07df1bf2e53a216d3fa:/gtk/gtk.lisp diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp index c613886..837ca26 100644 --- a/gtk/gtk.lisp +++ b/gtk/gtk.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gtk.lisp,v 1.90 2008-02-29 18:34:19 espen Exp $ +;; $Id: gtk.lisp,v 1.91 2008-03-20 15:44:01 espen Exp $ (in-package "GTK") @@ -108,7 +108,7 @@ (defun %init-async-event-handling (display) (when (and (find-package "SWANK") (not (eq (symbol-value (find-symbol "*COMMUNICATION-STYLE*" "SWANK")) style))) - (error "When running clg in Slime, the communication style ~S must be used in combination with asynchronous event handling on this platform. See the README file and for more information." style))) + (error "When running clg in Slime, the communication style ~S must be used in combination with asynchronous event handling on this platform. See the README file and for more information." style))) #?(or (featurep :cmu) (sbcl< 1 0 6) (sbcl>= 1 0 15 6)) (progn