Skip to content
Snippets Groups Projects
Commit 6a5a68e6 authored by layer's avatar layer
Browse files

2007-05-17 <layer@HOBART>

parent 378abd8e
No related branches found
No related tags found
No related merge requests found
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> 2007-04-24 Andreas Fuchs <asf@boinkor.net>
* aclpc/acl-class.lisp, aclpc/acl-port.lisp: * aclpc/acl-class.lisp, aclpc/acl-port.lisp:
...@@ -6171,4 +6178,4 @@ IGNORE JDI SPECIFIC CHANGES TO Makefile ...@@ -6171,4 +6178,4 @@ IGNORE JDI SPECIFIC CHANGES TO Makefile
Lots of other stuff Lots of other stuff
******************************************************************************* *******************************************************************************
$Revision: 2.33 $ $Revision: 2.34 $
...@@ -17,7 +17,7 @@ ...@@ -17,7 +17,7 @@
;; Commercial Software developed at private expense as specified in ;; Commercial Software developed at private expense as specified in
;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable. ;; 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 @@ ...@@ -967,7 +967,10 @@
;;; only the edit control). ;;; only the edit control).
;; [rfe4951] ;; [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)) (declare (:convention :stdcall) (:unwind 0))
(mp:without-scheduling (mp:without-scheduling
(let ((result 0) (let ((result 0)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment