[Sbcl-commits] master: Eliminate a warning and an unreachable code note.

[Douglas K. <sn...@us...>]

The branch "master" has been updated in SBCL:
       via  012470319c9c81a013d8019bf05aff8b40b07db8 (commit)
      from  edf27f6f0b25d36b6e08bfe21a634448b2b2f9c1 (commit)

- Log -----------------------------------------------------------------
commit 012470319c9c81a013d8019bf05aff8b40b07db8
Author: Douglas Katzman <do...@go...>
Date:   Thu Jul 30 19:58:03 2015 -0400

    Eliminate a warning and an unreachable code note.
---
 src/code/target-error.lisp |   13 +++++++++++--
 1 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/code/target-error.lisp b/src/code/target-error.lisp
index bd9ab94..635c72e 100644
--- a/src/code/target-error.lisp
+++ b/src/code/target-error.lisp
@@ -16,7 +16,9 @@
   (declare (special *muffled-warnings*))
   (typep warning *muffled-warnings*))
 
-(defglobal **initial-handler-clusters**
+;; Host lisp does not need a value for this, so start it out as NIL.
+(defglobal **initial-handler-clusters** nil)
+(setq **initial-handler-clusters**
   `(((,(lambda (condition)
          (typep condition 'warning))
       .
@@ -42,7 +44,14 @@
 
 ;;; a list of lists of currently active RESTART instances. maintained
 ;;; by RESTART-BIND.
-(defvar *restart-clusters* '())
+;;; This variable is proclaimed to be "eventually" always-bound,
+;;; meaning in the loaded code. If DEFVAR were used, the compiler knows that
+;;; BOUNDP will be T, and therefore a code deletion note should be issused
+;;; for the initialization expression (UNLESS (BOUNDP x) <initform>).
+;;; Technically it's not even right to use DEFVAR because it works only
+;;; if the initializer is really NIL, since that is what %DEFVAR will assign
+;;; on account of the fact that an initializer was supplied at all.
+(defparameter *restart-clusters* '())
 
 (def!method print-object ((restart restart) stream)
   (if *print-escape*

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


hooks/post-receive
-- 
SBCL