/[cmucl]/src/code/extfmts.lisp
ViewVC logotype

Diff of /src/code/extfmts.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18.4.1 by rtoy, Fri Sep 25 04:10:46 2009 UTC revision 1.18.4.2 by rtoy, Sat Sep 26 13:32:26 2009 UTC
# Line 697  Line 697 
697    `(lambda (octets ptr end string s-start s-end &aux (pos s-start) (count 0) (state nil) (last-octet 0))    `(lambda (octets ptr end string s-start s-end &aux (pos s-start) (count 0) (state nil) (last-octet 0))
698       (declare (optimize (speed 3) #|(safety 0) (space 0) (debug 0)|#)       (declare (optimize (speed 3) #|(safety 0) (space 0) (debug 0)|#)
699                (type (simple-array (unsigned-byte 8) (*)) octets)                (type (simple-array (unsigned-byte 8) (*)) octets)
700                (type kernel:index pos end count last-octet)                (type kernel:index pos end count last-octet s-start s-end)
701                (type (integer -1 (#.array-dimension-limit)) ptr)                (type (integer -1 (#.array-dimension-limit)) ptr)
702                (type simple-string string)                (type simple-string string)
703                (ignorable state))                (ignorable state))

Legend:
Removed from v.1.18.4.1  
changed lines
  Added in v.1.18.4.2

  ViewVC Help
Powered by ViewVC 1.1.5