[movitz-cvs] CVS update: movitz/losp/lib/misc.lisp

[Frode Vatvedt Fjeld]

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 at 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)