LispWorks port (thanks to Edi Weitz)

2005-04-20 19:58:01 +00:00
parent 11249740d9
commit cf6535edbb
2 changed files with 34 additions and 4 deletions
--- a/characters.lisp
+++ b/characters.lisp
@ -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)