mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 13:21:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

SHRINK-VECTOR is not in the Gray package

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-12-07 13:58:05 +01:00
parent e57c1ac85a
commit 21cd803aef
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/streams.lsp
View file

@ -481,7 +481,7 @@
(return (values (si::shrink-vector res index) t)))
(t
(when (char= ch #\newline)
(return (values (shrink-vector res index) nil)))
(return (values (si::shrink-vector res index) nil)))
(when (= index len)
(setq len (* len 2))
(let ((new (make-string len)))