From ac93eb388fcc86117f5d13cd5fef00a7d1f714d6 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Sat, 11 Nov 2006 19:43:40 +0000
Subject: [PATCH] si:base-string-p only defined with Unicode

---
 src/lsp/seqlib.lsp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/lsp/seqlib.lsp b/src/lsp/seqlib.lsp
index 4f3e3c1c2..dfc2aa5f8 100644
--- a/src/lsp/seqlib.lsp
+++ b/src/lsp/seqlib.lsp
@@ -16,6 +16,7 @@
 (defun seqtype (sequence)
   (declare (si::c-local))
   (cond ((listp sequence) 'list)
+	#+unicode
 	((base-string-p sequence) 'base-string)
         ((stringp sequence) 'string)
         ((bit-vector-p sequence) 'bit-vector)