Remove a line which causes a package lock with sbcl

crategus · Nov 10, 2021 · ffe2301 · ffe2301
1 parent f6976d7
commit ffe2301
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gtk/gtk.main-loop.lisp b/gtk/gtk.main-loop.lisp
@@ -264,7 +264,7 @@
   @see-function{%gtk-init-check}"
   (%gtk-init-check (foreign-alloc :int :initial-element 0)
                    (foreign-alloc :string :initial-contents '("/usr/bin/sbcl")))
-  #+(and sbcl (not win32))
+  #+(and nil sbcl (not win32))
   (sb-unix::enable-interrupt sb-unix:sigpipe #'sb-unix::sigpipe-handler)
   #+nil(with-foreign-objects ((argc :int)
                          (argv '(:pointer :string) 1))