From 6a5a68e6b66b96bd8c14061168418911e74e77d6 Mon Sep 17 00:00:00 2001
From: layer <layer>
Date: Thu, 17 May 2007 20:35:03 +0000
Subject: [PATCH] 2007-05-17    <layer@HOBART>

---
 ChangeLog.n          | 9 ++++++++-
 aclpc/acl-class.lisp | 7 +++++--
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/ChangeLog.n b/ChangeLog.n
index c8e7db73..4b57e57c 100644
--- a/ChangeLog.n
+++ b/ChangeLog.n
@@ -1,3 +1,10 @@
+2007-05-17    <layer@HOBART>
+
+	* aclpc/acl-class.lisp: bug17020: clim process browser in win64
+	  causes acl to disappear: make sure the defun-foreign-callable
+	  arguments are declared with the correct types (as are done for
+	  clim-wind-proc)
+
 2007-04-24  Andreas Fuchs  <asf@boinkor.net>
 	   
 	* aclpc/acl-class.lisp, aclpc/acl-port.lisp:
@@ -6171,4 +6178,4 @@ IGNORE JDI SPECIFIC CHANGES TO Makefile
 	Lots of other stuff
 
 *******************************************************************************
-$Revision: 2.33 $
+$Revision: 2.34 $
diff --git a/aclpc/acl-class.lisp b/aclpc/acl-class.lisp
index 969b5149..6dbeaae4 100644
--- a/aclpc/acl-class.lisp
+++ b/aclpc/acl-class.lisp
@@ -17,7 +17,7 @@
 ;; Commercial Software developed at private expense as specified in
 ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
 ;;
-;; $Id: acl-class.lisp,v 2.19 2007/04/25 20:29:26 layer Exp $
+;; $Id: acl-class.lisp,v 2.20 2007/05/17 20:35:03 layer Exp $
 
 #|****************************************************************************
 *                                                                            *
@@ -967,7 +967,10 @@
 ;;; only the edit control).
 
 ;; [rfe4951]
-(ff:defun-foreign-callable clim-ctrl-proc (window msg wparam lparam)
+(ff:defun-foreign-callable clim-ctrl-proc ((window win:hwnd)
+					   (msg win:uint)
+					   (wparam win:wparam)
+					   (lparam win:lparam))
   (declare (:convention :stdcall) (:unwind 0))
   (mp:without-scheduling
     (let ((result 0)
-- 
GitLab