Permalink
Browse files

Move sb-win32:close-handle out of #+sb-thread

  • Loading branch information...
1 parent e30b460 commit 5abfd64b00a0937ba2df2919f177697d1d91bde4 @dmitryvk committed Dec 21, 2010
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/code/win32.lisp
View
@@ -233,14 +233,14 @@
(when (>= microseconds 1000)
(millisleep (floor microseconds 1000)))))
+(define-alien-routine ("CloseHandle" close-handle) bool
+ (handle handle))
+
#!+sb-thread
(progn
(define-alien-routine ("win32_wait_object_or_signal" wait-object-or-signal) int
(handle handle))
(define-alien-type signed-filetime (signed 64))
- (define-alien-routine ("CloseHandle" close-handle) bool
- (handle handle))
-
(define-alien-routine ("CreateWaitableTimerA" create-waitable-timer) handle
(security-attributes (* t))
(manual-reset bool)

0 comments on commit 5abfd64

Please sign in to comment.