From ed25c414ea7a5109c86c74ffaa7b2456025c60cd Mon Sep 17 00:00:00 2001 From: layer <layer> Date: Thu, 15 Mar 2007 16:54:19 +0000 Subject: [PATCH] 2007-03-15 <layer@HOBART> --- ChangeLog.n | 7 ++++++- aclpc/acl-class.lisp | 4 ++-- aclpc/acl-medium.lisp | 5 ++--- 3 files changed, 10 insertions(+), 6 deletions(-) diff --git a/ChangeLog.n b/ChangeLog.n index 0d5c02d3..6777933f 100644 --- a/ChangeLog.n +++ b/ChangeLog.n @@ -1,3 +1,8 @@ +2007-03-15 <layer@HOBART> + + * aclpc/acl-class.lisp: remove warning due to bogus decl + * aclpc/acl-medium.lisp: remove warning due to bogus decl + 2007-03-14 Duane Rettig <duane@franz.com> * silica/graphics.lisp: Remove bogus declaration @@ -6116,4 +6121,4 @@ IGNORE JDI SPECIFIC CHANGES TO Makefile Lots of other stuff ******************************************************************************* -$Revision: 2.28 $ +$Revision: 2.29 $ diff --git a/aclpc/acl-class.lisp b/aclpc/acl-class.lisp index 52dae439..b571ff92 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.15 2006/10/10 18:05:07 layer Exp $ +;; $Id: acl-class.lisp,v 2.16 2007/03/15 16:54:19 layer Exp $ #|**************************************************************************** * * @@ -410,7 +410,7 @@ ((eql msg win:WM_HSCROLL) win:SB_HORZ) ((eql msg win:WM_VSCROLL) win:SB_VERT))) (redraw 1)) - (declare (fixnum action position)) + (declare (fixnum position)) (assert bar) ;; By convention, scroll bar values should always have a range of ;; 0 to *win-scroll-grain*. diff --git a/aclpc/acl-medium.lisp b/aclpc/acl-medium.lisp index 96909a39..8bede22c 100644 --- a/aclpc/acl-medium.lisp +++ b/aclpc/acl-medium.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-medium.lisp,v 2.7 2005/12/08 21:25:42 layer Exp $ +;; $Id: acl-medium.lisp,v 2.8 2007/03/15 16:54:19 layer Exp $ #|**************************************************************************** * * @@ -1617,8 +1617,7 @@ device-independent bitmap, an icon, nor a cursor.")) (array (make-array (list height width))) (pixels (read-strings)) (i 0)) - (declare (type (simple-array t (* *)) array) - (string row)) + (declare (type (simple-array t (* *)) array)) (excl::fast (dolist (row pixels) (let ((index 0)) -- GitLab