#!+sb-unicode character-string-p
#!+sb-unicode simple-character-string-p
array-header-p
+ sequencep
simple-array-p simple-array-nil-p vector-nil-p
simple-array-unsigned-byte-2-p
simple-array-unsigned-byte-4-p simple-array-unsigned-byte-7-p
;;;; threading
-#!+sb-lutex
+#!+(and sb-lutex sb-thread)
(progn
(defknown sb!vm::%make-lutex () sb!vm::lutex ())
(defknown sb!vm::lutexp (t) boolean (foldable flushable)))