• R/O
  • SSH
  • HTTPS

creole: Commit


Commit MetaInfo

Revision9 (tree)
Time2010-04-20 03:03:30
Authorphjgt

Log Message

commit

Change Summary

Incremental Difference

--- package.lisp (revision 8)
+++ package.lisp (revision 9)
@@ -20,6 +20,3 @@
2020 (deftype positive-fixnum () '(integer 1 #.most-positive-fixnum))
2121 (deftype array-index () '(integer 0 #.(1- array-total-size-limit)))
2222 (deftype simple-characters () '(simple-array character (*)))
23-
24-(deftype optimize-hack-array-index () #+SBCL '(integer 0 100)
25- #-SBCL 'array-index)
\ No newline at end of file
--- utf16.lisp (revision 8)
+++ utf16.lisp (revision 9)
@@ -33,7 +33,7 @@
3333 (p2 (if (eq endian :be) 0 8)))
3434 `(let ((octets (make-array (* 4 (length ,string)) :element-type 'octet))
3535 (i 0))
36- (declare (optimize-hack-array-index i))
36+ (declare (array-index i))
3737 (macrolet ((add-octets (&rest octet-list &aux (n (length octet-list)))
3838 (declare (optimize (speed 0)))
3939 `(progn ,@(loop FOR i FROM 0 BELOW n
--- utf8.lisp (revision 8)
+++ utf8.lisp (revision 9)
@@ -107,7 +107,7 @@
107107 (simple-characters string))
108108 (let ((octets (make-array (utf8-octets-length string) :element-type 'octet))
109109 (i 0))
110- (declare (optimize-hack-array-index i))
110+ (declare (array-index i))
111111 (macrolet ((add-octets (&rest octet-list &aux (n (length octet-list)))
112112 (declare (optimize (speed 0)))
113113 `(progn ,@(loop FOR i FROM 0 BELOW n
Show on old repository browser