master: Don't break M-. by manipulating *features* at compile-time
stassats via Sbcl-commits <[email protected]> Sat, 01 Aug 2026 04:10:09 +0000
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via a7547672be29b78c8f8299324ed7d6b0870678f9 (commit)
from efed52323627a941c0fb430b4c8e45be5190bcb2 (commit)
- Log -----------------------------------------------------------------
commit a7547672be29b78c8f8299324ed7d6b0870678f9
Author: Stas Boukarev <[email protected]>
Date: Sat Aug 1 07:08:57 2026 +0300
Don't break M-. by manipulating *features* at compile-time
---
src/compiler/constraint.lisp | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/src/compiler/constraint.lisp b/src/compiler/constraint.lisp
index 4c0cd0720..c3e02b9ca 100644
--- a/src/compiler/constraint.lisp
+++ b/src/compiler/constraint.lisp
@@ -133,8 +133,6 @@
;;; for constraint propagation, or if bit-vectors on some XC host
;;; really lose compared to SSETs, here's the conset API as a wrapper
;;; around SSETs:
-#-conset-is-sset
-(eval-when (:compile-toplevel :execute) (pushnew :bitmapped-conset sb-xc:*features*))
#+conset-is-sset
(progn
(deftype conset () 'sset)
@@ -185,7 +183,7 @@
;;; 9 66 1.4 210 4.4 3857 81.0 - (FLET SB-C::BODY-FUN :IN SB-C::TYPE-FROM-CONSTRAINTS)
;;; 10 58 1.2 123 2.6 3915 82.2 - SB-KERNEL::%TYPE-INTERSECTION
-#+bitmapped-conset
+#-conset-is-sset
(locally
;; This is performance critical for the compiler, and benefits
;; from the following declarations. Probably you'll want to
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL