OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LispWorks port (thanks to Edi Weitz)

Browse Source
This commit is contained in:
dlichteblau
2005-04-20 19:57:59 +00:00
parent 475ee0db12
commit c7610a4a3a
8 changed files with 256 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
runes/characters.lisp
View File

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