;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
- #+allegro (native-to-string char-ptr) ;; optimized
- #-allegro (uffi:convert-from-foreign-string char-ptr)))))))
+ #+(or allegro lispworks) (native-to-string char-ptr) ;; optimized
+ #-(or allegro lispworks) (uffi:convert-from-foreign-string char-ptr)))))))
(uffi:def-function "strlen"
((str (* :unsigned-char)))
:returning :unsigned-int)
(uffi:def-function "strlen"
((str (* :unsigned-char)))
:returning :unsigned-int)