X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=src%2Fstrings.lisp;h=3905004cf02909af262f754d5fda90fc0575481f;hb=b86fdf882156aa45dc6e8e93a158dedf506f4233;hp=543434fe0fed901a0a4d573bca4513d304fa9a51;hpb=72190043201239567658cfbae1c36bbd7233419b;p=uffi.git

diff --git a/src/strings.lisp b/src/strings.lisp
index 543434f..3905004 100644
--- a/src/strings.lisp
+++ b/src/strings.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
 ;;;; *************************************************************************
 
 (in-package #:uffi)
@@ -389,7 +387,7 @@ that LW/CMU automatically converts strings from c-calls."
 
 (def-type char-ptr-def (* :unsigned-char))
 
-#+(or (and allegro (not ics)) (and lispworks (not lispworks5)))
+#+(or (and allegro (not ics)) (and lispworks (not lispworks5) (not lispworks6)))
 (defun fast-native-to-string (s len)
   (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))
            (type char-ptr-def s))
@@ -402,7 +400,7 @@ that LW/CMU automatically converts strings from c-calls."
       (setf (aref str i)
         (uffi:deref-array s '(:array :char) i)))))
 
-#+(or (and allegro ics) lispworks5)
+#+(or (and allegro ics) lispworks5 lispworks6)
 (defun fast-native-to-string (s len)
   (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))
            (type char-ptr-def s))