[closure-cvs] CVS update: cxml/runes/dep-lw.lisp cxml/runes/characters.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/runes
In directory common-lisp.net:/tmp/cvs-serv1210/runes

Modified Files:
	characters.lisp 
Added Files:
	dep-lw.lisp 
Log Message:
LispWorks port (thanks to Edi Weitz)

Date: Wed Apr 20 21:58:01 2005
Author: dlichteblau



Index: cxml/runes/characters.lisp
diff -u cxml/runes/characters.lisp:1.2 cxml/runes/characters.lisp:1.3
--- cxml/runes/characters.lisp:1.2	Fri Mar 25 19:16:56 2005
+++ cxml/runes/characters.lisp	Wed Apr 20 21:58:01 2005
@@ -24,9 +24,9 @@
 
 (in-package :runes)
 
-(deftype rune () 'character)
-(deftype rod () '(vector character))
-(deftype simple-rod () '(simple-array character))
+(deftype rune () #-lispworks 'character #+lispworks 'lw:simple-char)
+(deftype rod () '(vector rune))
+(deftype simple-rod () '(simple-array rune))
 
 (definline rune (rod index)
   (char rod index))
@@ -101,7 +101,7 @@
   (string-equal x y))
 
 (definline make-rod (size)
-  (make-string size))
+  (make-string size :element-type 'rune))
 
 (defun char-rune (char)
   char)