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