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