• R/O
  • SSH
  • HTTPS

creole: Commit


Commit MetaInfo

Revision31 (tree)
Time2010-05-12 09:49:07
Authorphjgt

Log Message

charseq-0.1.7に対応

Change Summary

Incremental Difference

--- util.lisp (revision 30)
+++ util.lisp (revision 31)
@@ -7,7 +7,7 @@
77 (if it ,then ,else)))
88
99 (defmacro each-code ((code charseq &key return) &body body)
10- `(charseq:each (#1=#:char ,charseq ,return)
10+ `(charseq:each (#1=#:char ,charseq ,return t)
1111 (let ((,code (char-code #1#)))
1212 ,@body)))
1313
Show on old repository browser