diff --git a/ChangeLog.n b/ChangeLog.n index c8e7db73e66c307e03f9520f99e72b434aa75c3c..4b57e57c9f00786bb3f8309569353f54e55f13c9 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 969b514975a12da49e16dbec68c4a7ec3fc2217a..6dbeaae46846d45be8dbe447f37fb6b7ae24091c 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)