From: Douglas K. <sn...@us...> - 2015-03-28 19:00:34
|
The branch "master" has been updated in SBCL: via 5bcfaa5559e92254225e6efafe603fadf5f97f20 (commit) from dde6eedcd54c04ad7448625ca2f83fb0e4c0f8b8 (commit) - Log ----------------------------------------------------------------- commit 5bcfaa5559e92254225e6efafe603fadf5f97f20 Author: Douglas Katzman <do...@go...> Date: Sat Mar 28 14:56:50 2015 -0400 Fix unused variable warning in genesis. --- src/compiler/generic/genesis.lisp | 17 ++++++----------- 1 files changed, 6 insertions(+), 11 deletions(-) diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp index 8bc284b..e9e9fe1 100644 --- a/src/compiler/generic/genesis.lisp +++ b/src/compiler/generic/genesis.lisp @@ -2064,18 +2064,13 @@ core and return a descriptor to it." ;;; create *STATIC-FOREIGN-SYMBOLS*, which the code in ;;; target-load.lisp refers to. (defun foreign-symbols-to-core () - (let ((symbols nil) - (result *nil-descriptor*)) + (let ((result *nil-descriptor*)) #!-sb-dynamic-core - (progn - (maphash (lambda (symbol value) - (push (cons symbol value) symbols)) - *cold-foreign-symbol-table*) - (setq symbols (sort symbols #'string< :key #'car)) - (dolist (symbol symbols) - (cold-push (cold-cons (base-string-to-core (car symbol)) - (number-to-core (cdr symbol))) - result))) + (dolist (symbol (sort (%hash-table-alist *cold-foreign-symbol-table*) + #'string< :key #'car)) + (cold-push (cold-cons (base-string-to-core (car symbol)) + (number-to-core (cdr symbol))) + result)) (cold-set '*!initial-foreign-symbols* result) #!+sb-dynamic-core (let ((runtime-linking-list *nil-descriptor*)) ----------------------------------------------------------------------- hooks/post-receive -- SBCL |