master: Remove unnecessary WHEN and LET
snuglas via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via f87df9b1ab4f2a9f1d51e072683a8e8348b955f8 (commit)
from 6133cb16778d84f93a3aa03bc09de6359b3358c6 (commit)
- Log -----------------------------------------------------------------
commit f87df9b1ab4f2a9f1d51e072683a8e8348b955f8
Author: Douglas Katzman <[email protected]>
Date: Wed Apr 15 15:10:17 2026 -0400
Remove unnecessary WHEN and LET
---
src/pcl/boot.lisp | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index 239d0f839..c4c5c1f57 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -1905,12 +1905,9 @@ bootstrapping.
(when (and mff (consp name) (eq (car name) 'slow-method))
(let ((fast-name `(fast-method ,@(cdr name))))
(set-fun-name mff fast-name))))
- (when plist
- (let ((plist plist))
- (let ((snl (getf plist :slot-name-lists)))
- (when snl
- (setf (method-plist-value method :pv-table)
- (intern-pv-table :slot-name-lists snl))))))))
+ (binding* ((snl (getf plist :slot-name-lists) :exit-if-null))
+ (setf (method-plist-value method :pv-table)
+ (intern-pv-table :slot-name-lists snl)))))
(defun analyze-lambda-list (lambda-list)
(multiple-value-bind (llks required optional rest keywords)
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL