X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fobjects.lisp;h=c9935b755dfa64867a27e4c6c1e155264b67daa0;hb=27073cc090c29aa5dcf9ed9becdf3e73b937b0bb;hp=f3beee48b42d93ef617f8dc8befd0b88e09098be;hpb=72190043201239567658cfbae1c36bbd7233419b;p=uffi.git

diff --git a/src/objects.lisp b/src/objects.lisp
index f3beee4..c9935b7 100644
--- a/src/objects.lisp
+++ b/src/objects.lisp
@@ -7,9 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id$
-;;;;
-;;;; This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg
+;;;; This file, part of UFFI, is Copyright (c) 2002-2010 by Kevin M. Rosenberg
 ;;;;
 ;;;; *************************************************************************
 
@@ -139,8 +137,8 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated."
   `(if (integerp ,obj) ,obj (char-code ,obj)))
 
 (defmacro ensure-char-storable (obj)
-  #+(or digitool (and lispworks (not lispworks5))) obj
-  #+(or allegro cmu lispworks5 openmcl sbcl scl)
+  #+(or digitool (and lispworks (not lispworks5) (not lispworks6))) obj
+  #+(or allegro cmu lispworks5 lispworks6 openmcl sbcl scl)
   `(char-code ,obj))
 
 (defmacro pointer-address (obj)