Unless specified, sequence functions must output a string of the same type as the input

This commit is contained in:
jgarcia 2006-11-11 19:28:21 +00:00
parent 4d6c3b1d64
commit 0e18c3237b
2 changed files with 4 additions and 0 deletions

View file

@ -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.

View file

@ -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)))