From 0e18c3237b0b933f6350e6b5a91d0d71eecb7bd5 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Sat, 11 Nov 2006 19:28:21 +0000
Subject: [PATCH] Unless specified, sequence functions must output a string of
 the same type as the input

---
 src/CHANGELOG      | 3 +++
 src/lsp/seqlib.lsp | 1 +
 2 files changed, 4 insertions(+)

diff --git a/src/CHANGELOG b/src/CHANGELOG
index 583e1d6e0..af7799aef 100644
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -124,6 +124,9 @@ ECL 1.0:
  - Following functions fixed to work with Unicode strings: EQUAL, EQUALP,
    PARSE-INTEGER.
 
+ - Most functions dealing with sequences (REMOVE, DELETE, etc) would
+   output a STRING even if the input was a BASE-STRING.
+
 * Other visible changes:
 
  - EXT:PROCESS-COMMAND-ARGS now allows for a default rule.
diff --git a/src/lsp/seqlib.lsp b/src/lsp/seqlib.lsp
index 54d4146c8..4f3e3c1c2 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)
+	((base-string-p sequence) 'base-string)
         ((stringp sequence) 'string)
         ((bit-vector-p sequence) 'bit-vector)
         ((vectorp sequence) (list 'vector (array-element-type sequence)))