Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /contrib/win32/win32.lisp [a42442] .. [a4f608] Maximize Restore

  Switch to side-by-side view

--- a/contrib/win32/win32.lisp
+++ b/contrib/win32/win32.lisp
@@ -354,16 +354,15 @@
   (unless ptr (setq ptr var))
   `(let ((,var (make-pointer ,ptr ',type))) ,@body))
 
-(eval-when (:load-toplevel :execute)
-  (defmacro def-win32-function (name args &key (returning :void) module)
-    `(def-function ,name ,args :returning ,returning :module ,module :call :stdcall)))
+(defmacro def-win32-function (name args &key (returning :void) module)
+  `(def-function ,name ,args :returning ,returning :module ,module :call :stdcall))
 (eval-when (:compile-toplevel)
-  (defmacro def-win32-function (name args &key (returning :void) module)
+  (define-compiler-macro def-win32-function (name args &key (returning :void) module)
     `(def-function ,name ,args :returning ,returning)))
-(load-foreign-library "kernel32.lib")
-(load-foreign-library "comdlg32.lib")
-(load-foreign-library "gdi32.lib")
-(load-foreign-library "comctl32.lib")
+(load-foreign-library "kernel32")
+(load-foreign-library "comdlg32")
+(load-foreign-library "gdi32")
+(load-foreign-library "comctl32")
 
 (def-win32-function ("RtlZeroMemory" zeromemory) ((Destination :pointer-void) (Length :unsigned-int)) :returning :void :module "kernel32")
 (def-win32-function ("LoadLibraryA" loadlibrary) ((lpLibFileName LPCSTR)) :returning HANDLE :module "kernel32")