;;;;
;;;; $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
;;;;
;;;; *************************************************************************
`(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)