diff --git a/ChangeLog.n b/ChangeLog.n index 0d5c02d3b5413725f8a9da93a53741c3cea9914b..6777933f1b0c727411b730fdbf1675ff2cb2b9ee 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 52dae4399259abb1d89682943724405ca9f02050..b571ff9219a582d8fbe07a038d232013258414c5 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 96909a3925068830b32aef4564171edee944496a..8bede22c0199a5ab2efe443816c1e89189cb011e 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))