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