diff options
author | Douglas Katzman <dougk@google.com> | 2024-01-10 23:05:17 -0500 |
---|---|---|
committer | Douglas Katzman <dougk@google.com> | 2024-01-10 23:24:21 -0500 |
commit | cd041e5b1c28aad362a953919ecd95f233a6b3ca (patch) | |
tree | fce552e50ab26bfed7cf2fde18ce52c5b3a3e12f /tools-for-build | |
parent | c922a1d491dc1b6722311406789f72902c4c9e3b (diff) |
Remove unused slot from symtbl-magic
And rename symbol-hashset type to SYMBOL-TABLE which is more mnemomic
considering that variable holding the thing is usually named 'table',
and the magic parameters are in a symtbl-magic struct.
Diffstat (limited to 'tools-for-build')
-rw-r--r-- | tools-for-build/editcore.lisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tools-for-build/editcore.lisp b/tools-for-build/editcore.lisp index 77c2d3532..8f0121590 100644 --- a/tools-for-build/editcore.lisp +++ b/tools-for-build/editcore.lisp @@ -39,7 +39,7 @@ #:near-cond-jump-displacement #:mov #:call #:jmp #:get-gpr #:reg-name #:machine-ea #:machine-ea-base #:machine-ea-index #:machine-ea-disp) - (:import-from "SB-IMPL" #:symbol-hashset #:package-%name + (:import-from "SB-IMPL" #:symbol-table #:package-%name #:symtbl-%cells #:hash-table-pairs #:hash-table-%count)) @@ -216,10 +216,10 @@ (dolist (string contents hs) (sb-int:hashset-insert hs string)))) -(defun scan-symbol-hashset (function table core) +(defun scan-symbol-table (function table core) (let* ((spacemap (core-spacemap core)) (nil-object (core-nil-object core)) - (cells (translate (symtbl-%cells (truly-the symbol-hashset + (cells (translate (symtbl-%cells (truly-the symbol-table (translate table spacemap))) spacemap))) (dovector (x (translate (cdr cells) spacemap)) @@ -275,7 +275,7 @@ (let ((externals (gethash package-name packages)) (n 0)) (unless externals - (scan-symbol-hashset + (scan-symbol-table (lambda (string symbol) (declare (ignore symbol)) (incf n) @@ -490,7 +490,7 @@ (package-alist) (symbols (make-hash-table :test 'equal))) (labels ((scan-symtbl (table) - (scan-symbol-hashset + (scan-symbol-table (lambda (str sym) (pushnew (get-lisp-obj-address sym) (gethash str symbols))) table core)) |