Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv4908

Modified Files: misc.lisp Log Message: *** empty log message *** Date: Sun May 22 00:38:19 2005 Author: ffjeld

Index: movitz/losp/lib/misc.lisp diff -u movitz/losp/lib/misc.lisp:1.8 movitz/losp/lib/misc.lisp:1.9 --- movitz/losp/lib/misc.lisp:1.8 Thu May 5 17:16:59 2005 +++ movitz/losp/lib/misc.lisp Sun May 22 00:38:19 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Mon May 12 17:13:31 2003 ;;;; -;;;; $Id: misc.lisp,v 1.8 2005/05/05 15:16:59 ffjeld Exp $ +;;;; $Id: misc.lisp,v 1.9 2005/05/21 22:38:19 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -22,7 +22,7 @@ (defun checksum-octets (packet &optional (start 0) (end (length packet))) "Generate sum of 16-bit big-endian words for a sequence of octets." (typecase packet - ((simple-array (unsigned-byte 8)) + ((simple-array (unsigned-byte 8) 1) (assert (<= 0 start end (length packet))) (with-inline-assembly (:returns :eax) (:compile-form (:result-mode :ebx) packet)