diff --git a/bootfiles/19f/boot-2009-07.lisp b/bootfiles/19f/boot-2009-07.lisp index d9c292b26e0afad4de49ea68d56b5cf9c84d9e17..f74d9091d5d10067ab7c1b0951f70353df7d73ce 100644 --- a/bootfiles/19f/boot-2009-07.lisp +++ b/bootfiles/19f/boot-2009-07.lisp @@ -4,6 +4,12 @@ (in-package "C") (without-package-locks + +;; Just in case the compiling lisp doesn't known about lisp::shrink-vector. +(defknown lisp::shrink-vector (vector fixnum) vector + (unsafe) + :result-not-used #'function-result-not-used-p) + (defoptimizer (lisp::shrink-vector derive-type) ((vector new-size)) ;; The result of shrink-vector is another vector of the same type as ;; the input. If the size is a known constant, we use it, otherwise