master: Don't specify :result-arg for REVERSE
stassats via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via 913710ac98e1e1ad738d1dabd02015296a629c7d (commit)
from c1a075a94cfd5653cf53f47e7141662d557ceeea (commit)
- Log -----------------------------------------------------------------
commit 913710ac98e1e1ad738d1dabd02015296a629c7d
Author: Stas Boukarev <[email protected]>
Date: Sun Aug 30 01:49:23 2026 +0300
Don't specify :result-arg for REVERSE
It's a copy.
---
src/compiler/fndb.lisp | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp
index 9cfc51cfe..34dbcabe1 100644
--- a/src/compiler/fndb.lisp
+++ b/src/compiler/fndb.lisp
@@ -651,8 +651,7 @@
(defknown length ((read-only proper-sequence)) index (foldable flushable dx-safe))
(defknown reverse ((read-only proper-sequence)) consed-sequence (flushable foldable-read-only)
- :derive-type (sequence-result-nth-arg 0 :preserve-dimensions t)
- :result-arg 0)
+ :derive-type (sequence-result-nth-arg 0 :preserve-dimensions t))
(defknown nreverse ((modifying sequence)) sequence (important-result)
:derive-type (sequence-result-nth-arg 0 :preserve-dimensions t
@@ -666,10 +665,8 @@
:result-arg 0)
(defknown sb-impl::list-nreverse (list) list (important-result no-verify-arg-count)
:result-arg 0)
-(defknown sb-impl::vector-reverse (vector) vector (no-verify-arg-count)
- :result-arg 0)
-(defknown sb-impl::list-reverse (list) list (no-verify-arg-count)
- :result-arg 0)
+(defknown sb-impl::vector-reverse (vector) vector (no-verify-arg-count))
+(defknown sb-impl::list-reverse (list) list (no-verify-arg-count))
(defknown make-sequence (type-specifier index
&key
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL