X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsort.lisp;h=076a9b9e3f65c71b605786d0abe74164583ccaee;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=1d6949f4c41c65d7e0dff03f284009be1c65d8d6;hpb=fe420bb47ea909070ee82c6e48642c9ff41dbcc8;p=sbcl.git

diff --git a/src/code/sort.lisp b/src/code/sort.lisp
index 1d6949f..076a9b9 100644
--- a/src/code/sort.lisp
+++ b/src/code/sort.lisp
@@ -23,7 +23,7 @@
   #!+sb-doc
   "Destructively sort SEQUENCE. PREDICATE should return non-NIL if
    ARG1 is to precede ARG2."
-  (declare (dynamic-extent args))
+  (declare (truly-dynamic-extent args))
   (let ((predicate-fun (%coerce-callable-to-fun predicate)))
     (seq-dispatch sequence
       (stable-sort-list sequence
@@ -43,7 +43,7 @@
   #!+sb-doc
   "Destructively sort SEQUENCE. PREDICATE should return non-NIL if
    ARG1 is to precede ARG2."
-  (declare (dynamic-extent args))
+  (declare (truly-dynamic-extent args))
   (let ((predicate-fun (%coerce-callable-to-fun predicate)))
     (seq-dispatch sequence
       (stable-sort-list sequence