+#+(and allegro ics)
+(defun fast-native-to-string (s)
+ (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))
+ (type char-ptr-def s))
+ (let* ((len (strlen s))
+ (str (make-string len)))
+ (declare (fixnum len))
+ (dotimes (i len str)
+ (setf (schar str i) (ensure-char-character
+ (uffi:deref-array s '(:array :char) i))))))
+