• R/O
  • SSH
  • HTTPS

creole: Commit


Commit MetaInfo

Revision28 (tree)
Time2010-05-11 08:15:47
Authorphjgt

Log Message

不要な関数を削除

Change Summary

Incremental Difference

--- util.lisp (revision 27)
+++ util.lisp (revision 28)
@@ -6,40 +6,11 @@
66 `(let ((it ,exp))
77 (if it ,then ,else)))
88
9-(defmacro muffle-warn (&body body)
10- `(locally
11- #+SBCL (declare (sb-ext:muffle-conditions sb-ext:compiler-note))
12- ,@body))
13-
14-(defmacro each-char-code ((code string &key return (start 0) end) &body body)
15- (let ((i (gensym)))
16- `(do* ((,i ,start (1+ ,i))
17- (,code #1=(char-code (char ,string ,i)) #1#))
18- ((>= ,i ,(or end `(length ,string))) ,return)
19- (declare (array-index ,i))
20- ,@body)))
21-
229 (defmacro each-code ((code charseq &key return) &body body)
2310 `(charseq:each (#1=#:char ,charseq ,return)
2411 (let ((,code (char-code #1#)))
2512 ,@body)))
2613
27-(defun to-simple-characters (source start end)
28- (let ((dist (make-array (- end start) :element-type 'character)))
29- (loop FOR i FROM start BELOW end
30- FOR j FROM 0 DO
31- (setf (aref dist j) (muffle-warn (aref source i))))
32- dist))
33-
34-;; TODO: delete
35-(defmacro ensure-simple-characters ((s start end) &body body)
36- `(multiple-value-bind (,s ,start ,end)
37- (etypecase ,s
38- (simple-characters (values ,s ,start ,end))
39- (string (values (to-simple-characters ,s ,start ,end) 0 (- ,end ,start))))
40- (declare (simple-characters ,s))
41- ,@body))
42-
4314 (defmacro defconst-onceonly (name value &optional doc)
4415 `(defconstant ,name (if (boundp ',name) (symbol-value ',name) ,value)
4516 ,@(when doc (list doc))))
Show on old repository browser