Skip to content
Snippets Groups Projects
Commit ad971da4 authored by rtoy's avatar rtoy
Browse files

Add a defknown for lisp::shrink-vector, just in case the compiling

lisp doesn't already know about lisp::shrink-vector.
parent 19ead3d0
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment