anchor.diff:      (when (and 
   	   (find-package "SWANK")
   	   (not (eq (symbol-value (find-symbol "*COMMUNICATION-STYLE*" "SWANK")) style)))
  -      (error "When running clg in Slime, the communication style ~A must be used in combination with asynchronous event handling on this platform. See the README file and <http://common-lisp.net/project/slime/doc/html/slime_45.html> 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 <http://common-lisp.net/project/slime/doc/html/slime_45.html> for more information." style)))
   
     #?(or (featurep :cmu) (sbcl< 1 0 6))
     (progn
  
positive.code:     ;; We need to hook into the Swank server to protect calls to GDK properly.
      ;; This will *only* protect code entered directly in the REPL.
      (when (find-package "SWANK")
        (push #'(lambda (form) 
   		(within-main-loop (eval form)))
         (symbol-value (find-symbol "*SLIME-REPL-EVAL-HOOKS*" "SWANK"))))))
  
  #-sb-thread
  (defmacro within-main-loop (&body body)
  
negative.code: ;; 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.86 2007-12-30 18:37:12 espen Exp $
  
  
  (in-package "GTK")
  