common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Add a folder stub for reverse-values-list

Browse source 
Reported by Andrew Wolven
This commit is contained in:
Stas Boukarev 2026-08-24 02:07:29 +03:00
parent 0d87331ec9
commit 6a371bf547
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/compiler/fndb.lisp
View file

@ -131,7 +131,11 @@
;;; represented by a call to VALUES.
(defknown values (&rest t) * (movable flushable))
(defknown values-list (list) * (movable foldable unsafely-flushable))
(defknown reverse-values-list (list index) * (movable foldable unsafely-flushable))
(defknown reverse-values-list ((read-only list) index) *
(movable foldable unsafely-flushable)
:folder (lambda (list length)
(aver (= (length list) length))
(values-list (reverse list))))
;;;; from the "Macros" chapter: