master: Don't fmakunbound functions present in *handled-conditions*

stassats via Sbcl-commits <[email protected]> Thu, 16 Jul 2026 15:11:45 +0000
Newsgroups gmane.lisp.steel-bank.cvs
Message-ID <[email protected]>
The branch "master" has been updated in SBCL:
       via  e3c2db021f4f5138ec1f04b3c0c83148c362a45d (commit)
      from  eda10e3e572cd31b257c27ed1a71682a9892c468 (commit)

- Log -----------------------------------------------------------------
commit e3c2db021f4f5138ec1f04b3c0c83148c362a45d
Author: Stas Boukarev <[email protected]>
Date:   Thu Jul 16 17:57:02 2026 +0300

    Don't fmakunbound functions present in *handled-conditions*
    
    Otherwise they themselves can't be compiled.
---
 src/cold/muffler.lisp | 2 --
 1 file changed, 2 deletions(-)

diff --git a/src/cold/muffler.lisp b/src/cold/muffler.lisp
index fb3b019a0..1eadd20bc 100644
--- a/src/cold/muffler.lisp
+++ b/src/cold/muffler.lisp
@@ -17,7 +17,6 @@
 
 ;; This avoids muffling "could not optimize away %SAP-ALIEN"
 ;; and "SAP to pointer conversion" in case we care.
-(fmakunbound 'unable-to-optimize-note-p)
 (defun unable-to-optimize-note-p (condition)
   (and (string= (type-of condition) "SIMPLE-COMPILER-NOTE")
        (let ((fc (simple-condition-format-control condition)))
@@ -31,7 +30,6 @@
 (defvar *optional-and-key-warning-condition*
   (find-symbol "&OPTIONAL-AND-&KEY-IN-LAMBDA-LIST" "SB-KERNEL"))
 
-(fmakunbound 'optional+key-style-warning-p)
 (defun optional+key-style-warning-p (condition)
   #+sbcl
   (when *optional-and-key-warning-condition*

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


hooks/post-receive
-- 
SBCL