• R/O
  • SSH
  • HTTPS

creole: Commit


Commit MetaInfo

Revision30 (tree)
Time2010-05-12 00:52:51
Authorphjgt

Log Message

冗長な宣言を除去

Change Summary

Incremental Difference

--- string-to-octets.lisp (revision 29)
+++ string-to-octets.lisp (revision 30)
@@ -33,9 +33,6 @@
3333 (setf #1# (load-encode-table external-format))))
3434
3535 (defun legal-string-to-octets (charseq octets-length table)
36- (declare #.*fastest*
37- (charseq:charseq charseq)
38- (optimize-hack-array-index octets-length))
3936 (let ((buf (make-array octets-length :element-type 'octet))
4037 (i -1))
4138 (each-code (code charseq :return (values buf t))
Show on old repository browser