From 21cd803aefd25acc693c665eea0ee1b1f2e6fd2d Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 7 Dec 2008 13:58:05 +0100 Subject: [PATCH] SHRINK-VECTOR is not in the Gray package --- src/clos/streams.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clos/streams.lsp b/src/clos/streams.lsp index 83ce5f783..0671cef63 100644 --- a/src/clos/streams.lsp +++ b/src/clos/streams.lsp @@ -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)))