mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 23:50:56 -08:00
Code Issues Projects Releases Packages Wiki Activity

si:base-string-p only defined with Unicode

Browse source
This commit is contained in:
jgarcia 2006-11-11 19:43:40 +00:00
parent 0e18c3237b
commit ac93eb388f
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/lsp/seqlib.lsp
View file

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