mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 07:12:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

'* is not a good output for CLOSEST-VECTOR-TYPE.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-05-25 21:00:45 +02:00
parent c1d902f009
commit 4d329047ee
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/seq.lsp
View file

@ -41,7 +41,7 @@
(setq name type args nil)))
(case name
((VECTOR)
(setq elt-type (if (endp args) '* (first args))
(setq elt-type (if (endp args) 'T (first args))
length (if (endp (rest args)) '* (second args))))
((SIMPLE-VECTOR)
(setq elt-type 'T