Changeset 13500


Ignore:
Timestamp:
Mar 9, 2010, 1:44:14 PM (10 years ago)
Author:
gb
Message:

Fix a comment, error messages.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/misc.lisp

    r13486 r13500  
    13071307
    13081308 
    1309 ;;; Octets between START and N encode an unsigned integer in big-endian
     1309;;; Octets between START and END encode an unsigned integer in big-endian
    13101310;;; byte order.
    13111311(defun parse-unsigned-integer (vector &optional (start 0) end)
     
    13161316          (declare (fixnum offset))
    13171317          (unless (typep data '(simple-array (unsigned-byte 8) (*)))
    1318             (report-bad-arg vector '(simple-array (unsigned-byte 8) (*))))
     1318            (report-bad-arg vector '(vector (unsigned-byte 8))))
    13191319          (incf start offset)
    13201320          (incf end offset)
     
    13841384        (declare (fixnum offset))
    13851385        (unless (typep data '(simple-array (unsigned-byte 8) (*)))
    1386           (report-bad-arg vector '(simple-array (unsigned-byte 8) (*))))
     1386          (report-bad-arg vector '(vector (unsigned-byte 8))))
    13871387        (incf start offset)
    13881388        (incf end offset)
Note: See TracChangeset for help on using the changeset viewer.