master: dump-1-packed-dfun: match what compute-args returns

The branch "master" has been updated in SBCL:
       via  c8639b1234d1dec758c7a4a641545a087472bc87 (commit)
      from  4eb17c020e028ea6a9f9004bb69d305480870ab6 (commit)

- Log -----------------------------------------------------------------
commit c8639b1234d1dec758c7a4a641545a087472bc87
Author: Stas Boukarev <[email protected]>
Date:   Sat Aug 29 09:46:39 2026 +0300

    dump-1-packed-dfun: match what compute-args returns
---
 src/code/debug-var-io.lisp   |  4 ++++
 src/compiler/debug-dump.lisp | 20 ++++++++++----------
 2 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/src/code/debug-var-io.lisp b/src/code/debug-var-io.lisp
index d07112f5a..2888b4e6a 100644
--- a/src/code/debug-var-io.lisp
+++ b/src/code/debug-var-io.lisp
@@ -97,10 +97,14 @@
 ;;; Write STRING into VEC (adjustable, with fill-pointer) represented
 ;;; as the length (in a var-length integer) followed by the codes of
 ;;; the characters.
+(defvar *int* (make-hash-table))
 (defun write-var-string (string vec)
   (declare (simple-string string))
   (let ((len (length string)))
     (write-var-integer len vec)
+    (when (equalp string "SB-C")
+      (break))
+    (incf (gethash string *int* 0))
     (dotimes (i len)
       (write-var-integer (char-code (schar string i)) vec)))
   (values))
diff --git a/src/compiler/debug-dump.lisp b/src/compiler/debug-dump.lisp
index 7706b5826..37d49b521 100644
--- a/src/compiler/debug-dump.lisp
+++ b/src/compiler/debug-dump.lisp
@@ -712,7 +712,7 @@
           (t
            (aver (or (null (leaf-refs var))
                      (not (tn-offset (leaf-info var)))))
-           'deleted))))
+           '%deleted))))
 
 ;;;; arguments/returns
 
@@ -745,16 +745,16 @@
                                             (return-from one-arg))
                                            (more
                                             (setf (arg-info-default info) t)))
-                                     (res 'rest-arg)))
+                                     (res '%rest)))
                                   (:more-context
-                                   (res 'more-arg))
+                                   (res '%more))
                                   (:optional
                                    (unless saw-optional
-                                     (res 'optional-args)
+                                     (res '%optional)
                                      (setq saw-optional t))))
                                 (res (debug-location-for actual var-locs))
                                 (when (arg-info-supplied-p info)
-                                  (res 'supplied-p)
+                                  (res '%supplied-p)
                                   (res (debug-location-for (pop actual-vars) var-locs))))
                                 (t
                                  (res (debug-location-for actual var-locs)))))))
@@ -946,19 +946,19 @@
           (dotimes (i len)
             (let ((argument (aref arguments i)))
               (case argument
-                (deleted
+                (%deleted
                  (write-var-integer packed-debug-fun-arg-deleted
                                     *byte-buffer*))
-                (supplied-p
+                (%supplied-p
                  (write-var-integer packed-debug-fun-arg-supplied-p
                                     *byte-buffer*))
-                (optional
+                (%optional
                  (write-var-integer packed-debug-fun-arg-optional
                                     *byte-buffer*))
-                (rest
+                (%rest
                  (write-var-integer packed-debug-fun-arg-rest
                                     *byte-buffer*))
-                (more
+                (%more
                  (write-var-integer packed-debug-fun-arg-more
                                     *byte-buffer*))
                 (otherwise

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL