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