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)