From 9496c3cbbff4ef38fef0759f62268ca36c267cfc Mon Sep 17 00:00:00 2001 Message-Id: <9496c3cbbff4ef38fef0759f62268ca36c267cfc.1714769609.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 21 Jun 2007 08:25:29 +0000 Subject: [PATCH] Don't import symbols for serve-event polling functionality in Win32 Organization: Straylight/Edgeware From: espen --- gtk/defpackage.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gtk/defpackage.lisp b/gtk/defpackage.lisp index 3593768..210b8bc 100644 --- a/gtk/defpackage.lisp +++ b/gtk/defpackage.lisp @@ -9,7 +9,9 @@ (defpackage "GTK" "ADD-READER-METHOD" "ADD-WRITER-METHOD") #+(or cmu sbcl) (:import-from #+cmu"SYSTEM" #+sbcl"SB-SYS" "SAP-INT" "ADD-FD-HANDLER" "REMOVE-FD-HANDLER") - #?(or (pkg-config:featurep :cmu) (pkg-config:sbcl< 1 0 6)) + #?(or + (pkg-config:featurep :cmu) + (and (pkg-config:sbcl< 1 0 6) (not (featurep :win32)))) (:import-from #+cmu"LISP" #+sbcl"SB-IMPL" "*PERIODIC-POLLING-FUNCTION*" "*MAX-EVENT-TO-SEC*" "*MAX-EVENT-TO-USEC*") -- [mdw]