Changeset 13500

Timestamp:

Mar 9, 2010, 5:44:14 AM (15 years ago)

Author:

Gary Byers

Message:

Fix a comment, error messages.

File:

• trunk/source/lib/misc.lisp (modified) (3 diffs)

trunk/source/lib/misc.lisp

@@ -1307 +1307 @@
 
   
-;;; Octets between START and N encode an unsigned integer in big-endian
+;;; Octets between START and END encode an unsigned integer in big-endian
 ;;; byte order.
 (defun parse-unsigned-integer (vector &optional (start 0) end)
@@ -1316 +1316 @@
           (declare (fixnum offset))
           (unless (typep data '(simple-array (unsigned-byte 8) (*)))
-            (report-bad-arg vector '(simple-array (unsigned-byte 8) (*))))
+            (report-bad-arg vector '(vector (unsigned-byte 8))))
           (incf start offset)
           (incf end offset)
@@ -1384 +1384 @@
         (declare (fixnum offset))
         (unless (typep data '(simple-array (unsigned-byte 8) (*)))
-          (report-bad-arg vector '(simple-array (unsigned-byte 8) (*))))
+          (report-bad-arg vector '(vector (unsigned-byte 8))))
         (incf start offset)
         (incf end offset)