• R/O
  • SSH
  • HTTPS

creole: Commit


Commit MetaInfo

Revision23 (tree)
Time2010-05-06 18:40:59
Authorphjgt

Log Message

r20のバグ修正

Change Summary

Incremental Difference

--- util.lisp (revision 22)
+++ util.lisp (revision 23)
@@ -30,7 +30,7 @@
3030 `(multiple-value-bind (,s ,start ,end)
3131 (etypecase ,s
3232 (simple-characters (values ,s ,start ,end))
33- (string (values (to-simple-characters ,s ,start ,end) ,start ,end)))
33+ (string (values (to-simple-characters ,s ,start ,end) 0 (- ,end ,start))))
3434 (declare (simple-characters ,s))
3535 ,@body))
3636
Show on old repository browser