Update of /project/cxml/cvsroot/cxml/runes In directory common-lisp.net:/tmp/cvs-serv5367/runes
Modified Files: characters.lisp utf8.lisp Log Message: sb-unicode backport namespace-korrekturen noch documentation
Date: Tue Dec 27 21:01:16 2005 Author: dlichteblau
Index: cxml/runes/characters.lisp diff -u cxml/runes/characters.lisp:1.4 cxml/runes/characters.lisp:1.5 --- cxml/runes/characters.lisp:1.4 Mon Nov 28 23:33:35 2005 +++ cxml/runes/characters.lisp Tue Dec 27 21:01:16 2005 @@ -95,7 +95,9 @@ (stringp x))
(defun rod= (x y) - (string= x y)) + (if (zerop (length x)) + (zerop (length y)) + (and (plusp (length y)) (string= x y))))
(defun rod-equal (x y) (string-equal x y))
Index: cxml/runes/utf8.lisp diff -u cxml/runes/utf8.lisp:1.1 cxml/runes/utf8.lisp:1.2 --- cxml/runes/utf8.lisp:1.1 Tue Dec 27 01:21:36 2005 +++ cxml/runes/utf8.lisp Tue Dec 27 21:01:16 2005 @@ -10,14 +10,6 @@ (deftype rod () '(vector rune)) (deftype simple-rod () '(simple-array rune))
-#+(or) -(definline rune (rod index) - (char rod index)) - -#+(or) -(defun (setf rune) (newval rod index) - (setf (char rod index) newval)) - (defun rod= (r s) (string= r s))