master: Typos
stassats via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via 8595450051912d35003fecaee2fbc4948aeb5a6b (commit)
from 0079393bff74d216d9fe463b2879f78ce9c0e20c (commit)
- Log -----------------------------------------------------------------
commit 8595450051912d35003fecaee2fbc4948aeb5a6b
Author: Stas Boukarev <[email protected]>
Date: Mon Apr 20 20:02:43 2026 +0300
Typos
---
src/compiler/ir1util.lisp | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp
index d87782449..d8faabc22 100644
--- a/src/compiler/ir1util.lisp
+++ b/src/compiler/ir1util.lisp
@@ -503,7 +503,7 @@
(and (symbolp b)
(not (eq a '*))
(not (eq b '*))))
- ((typep a '(cons (eql (or :type :constant))))
+ ((typep a '(cons (member :type :constant)))
(equal a b))
((and (consp a)
(consp b))
@@ -1977,7 +1977,7 @@
(single-ref-block-p block1))
do
(loop for block2 in rest
- when (and (not (block-delete-p block1))
+ when (and (not (block-delete-p block2))
(blocks-equivalent-p block1 block2))
do
(let* ((ref1 (block-start-node block1))
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL