[cxml-cvs] CVS update: cxml/runes/characters.lisp cxml/runes/utf8.lisp

[David Lichteblau]

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))