forked from Lainports/freebsd-ports
0710b9ab10
A change introduced in SBCL 2.4.11 caused build failures for downstream projects such as StumpWM. For details, see: https://bugs.launchpad.net/sbcl/+bug/2090967. Backport a fix from the SBCL master branch to address the build issue for x11-wm/stumpwm. Approved by: krion (maintainer, via IRC) Differential Revision: https://reviews.freebsd.org/D47995
12 lines
490 B
Common Lisp
12 lines
490 B
Common Lisp
--- src/compiler/ir1util.lisp.orig 2024-11-30 10:23:33 UTC
|
|
+++ src/compiler/ir1util.lisp
|
|
@@ -308,6 +308,9 @@
|
|
(defun erase-lvar-type (lvar)
|
|
(when lvar
|
|
(setf (lvar-%derived-type lvar) nil)
|
|
+ (loop for annotation in (lvar-annotations lvar)
|
|
+ when (lvar-type-annotation-p annotation)
|
|
+ do (setf (lvar-annotation-fired annotation) t))
|
|
(let ((dest (lvar-dest lvar)))
|
|
(cond ((cast-p dest)
|
|
(derive-node-type dest *wild-type* :from-scratch t)
|