From ad971da4de87e0a45de62bf1f4a6cb5959af7678 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Wed, 12 Aug 2009 16:38:54 +0000 Subject: [PATCH] Add a defknown for lisp::shrink-vector, just in case the compiling lisp doesn't already know about lisp::shrink-vector. --- bootfiles/19f/boot-2009-07.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/bootfiles/19f/boot-2009-07.lisp b/bootfiles/19f/boot-2009-07.lisp index d9c292b26..f74d9091d 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 -- GitLab