LispWorks port (thanks to Edi Weitz)

characters.lisp

@@ -24,9 +24,9 @@
 
 (in-package :runes)
 
-(deftype rune () 'character)
+(deftype rune () #-lispworks 'character #+lispworks 'lw:simple-char)
-(deftype rod () '(vector character))
+(deftype rod () '(vector rune))
-(deftype simple-rod () '(simple-array character))
+(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)

dep-lw.lisp

@@ -0,0 +1,30 @@
+;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; -*-
+;;; ---------------------------------------------------------------------------
+;;;     Title: LispWorks dependent stuff + fixups
+;;;   Created: 2005-01-28 09:43
+;;;    Author: Edi Weitz <edi@agharta.de>  (Copied from dep-cmucl.lisp)
+;;;   License: LLGPL (See file COPYING for details).
+;;; ---------------------------------------------------------------------------
+;;;  (c) copyright 1999 by Gilbert Baumann
+
+;;; This code is free software; you can redistribute it and/or modify it
+;;; under the terms of the version 2.1 of the GNU Lesser General Public
+;;; License as published by the Free Software Foundation, as clarified
+;;; by the "Preamble to the Gnu Lesser General Public License" found in
+;;; the file COPYING.
+;;;
+;;; This code is distributed in the hope that it will be useful,
+;;; but without any warranty; without even the implied warranty of
+;;; merchantability or fitness for a particular purpose.  See the GNU
+;;; Lesser General Public License for more details.
+;;;
+;;; Version 2.1 of the GNU Lesser General Public License is in the file
+;;; COPYING that was distributed with this file.  If it is not present,
+;;; you can access it from http://www.gnu.org/copyleft/lesser.txt (until
+;;; superseded by a newer version) or write to the Free Software
+;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+(defmacro runes::definline (name args &body body)
+  `(progn
+     (declaim (inline ,name))
+     (defun ,name ,args .,body)))