[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnugo a708759 110/357: [gnugo int] Use ‘cl-labels’ les
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnugo a708759 110/357: [gnugo int] Use ‘cl-labels’ less. |
Date: |
Sun, 29 Nov 2020 14:51:00 -0500 (EST) |
branch: externals/gnugo
commit a7087596a50424ec6624493fcc96efed15e170a2
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[gnugo int] Use ‘cl-labels’ less.
* packages/gnugo/gnugo.el (gnugo-move-history): Use ‘cl-flet*’.
(gnugo-note, gnugo-close-game, gnugo-toggle-dead-group)
(gnugo-display-final-score, gnugo/sgf-read-file): Use ‘cl-flet’.
(:gnugo-gtp-command-spec): Use ‘cl-flet*’, ‘cl-flet’.
---
gnugo.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/gnugo.el b/gnugo.el
index 342950f..a58313b 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -663,7 +663,7 @@ For all other values of RSEL, do nothing and return nil."
(as-pos (gnugo--as-pos-func (gnugo-get :SZ)))
col
acc node mprop move)
- (cl-labels
+ (cl-flet*
((as-pos-maybe (x) (if (string= "resign" x)
x
(funcall as-pos x)))
@@ -924,7 +924,7 @@ are dimmed. The buffer is in View minor mode."
(defun gnugo-note (property value &optional mogrifyp)
(when mogrifyp
(let ((sz (gnugo-get :SZ)))
- (cl-labels
+ (cl-flet
((mog (pos) (if (gnugo--passp pos)
""
(let* ((col (aref pos 0))
@@ -956,7 +956,7 @@ are dimmed. The buffer is in View minor mode."
;;
;; This presumes ‘bidx’ is 0 (main line) and that
;; all growth should occur on the main line.
- (cl-labels
+ (cl-flet
((continue-on (bx)
(rotatef (aref tree bidx)
(aref tree bx))))
@@ -1012,7 +1012,7 @@ are dimmed. The buffer is in View minor mode."
(if (or (eq t resign)
(and (stringp resign)
(string-match "[BW][+][Rr]esign" resign)))
- (cl-labels
+ (cl-flet
((ls (color) (mapcar
(lambda (x)
(cons (list color)
@@ -1526,7 +1526,7 @@ to enable full functionality."
(setcdr now (cons group (cdr now)))
;; disabled permanently -- too wrong
(when nil
- (cl-labels
+ (cl-flet
((populate (group)
(let ((color (caar group)))
(dolist (stone (cdr group))
@@ -1772,7 +1772,7 @@ Also, add the `:RE' SGF property to the root node of the
game tree."
(y-or-n-p "Game still in play. Stop play now? ")))
(user-error "Sorry, game still in play"))
(unless game-over
- (cl-labels
+ (cl-flet
((pass (userp)
(message "Playing PASS for %s ..."
(gnugo-get (if userp :user-color :gnugo-color)))
@@ -1855,7 +1855,7 @@ Also, add the `:RE' SGF property to the root node of the
game tree."
(end (gnugo-get :game-end-time)))
(when end
(push "\n" blurb)
- (cl-labels
+ (cl-flet
((yep (pretty moment)
(push (format-time-string
(concat pretty ": %Y-%m-%d %H:%M:%S %z\n")
@@ -2207,7 +2207,7 @@ starting a new one. See `gnugo-board-mode' documentation
for more info."
("\C-c\C-p" . gnugo-describe-internal-properties))))
(unless (get 'help :gnugo-gtp-command-spec)
- (cl-labels
+ (cl-flet*
((sget (x) (get x :gnugo-gtp-command-spec))
(jam (cmd prop val) (put cmd :gnugo-gtp-command-spec
(plist-put (sget cmd) prop val)))
@@ -2225,7 +2225,7 @@ starting a new one. See `gnugo-board-mode' documentation
for more info."
(info "(gnugo)GTP command reference")
(when sel (setq sel (intern (car sel))))
(let (buffer-read-only pad cur spec output found)
- (cl-labels
+ (cl-flet
((note (s) (insert pad "[NOTE: gnugo.el " s ".]\n")))
(goto-char (point-min))
(save-excursion
@@ -2507,7 +2507,7 @@ starting a new one. See `gnugo-board-mode' documentation
for more info."
(defun gnugo/sgf-hang-from-root (tree)
(let ((ht (make-hash-table :test 'eq))
(leaves (append tree nil)))
- (cl-labels
+ (cl-flet
((hang (stack)
(loop
with rh ; rectified history
- [elpa] externals/gnugo b5990a0 085/357: [gnugo int] Use ‘gnugo-treeroot’ more., (continued)
- [elpa] externals/gnugo b5990a0 085/357: [gnugo int] Use ‘gnugo-treeroot’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo f9668f0 090/357: [gnugo int] Add abstraction: gnugo--blackp, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo c164c40 092/357: [gnugo int] Add abstraction: gnugo--passp, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo bf04735 094/357: [gnugo] Fix bug: Don't misuse SGF prop ‘:EV’ for "resign" state., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo e036fed 096/357: [gnugo] Fix bug: On load, follow mainline through subtrees., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo eaaa7c8 102/357: [gnugo int] Invert gametree IR to hang by the leaves., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo ed11a74 101/357: [gnugo int] Embrace (NODE[...] [SUBTREE...]) IR, for now., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo b7843bf 103/357: [gnugo maint] Move hi-lock hint from NEWS to HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo ae888ba 105/357: [gnugo] Add command ‘gnugo-oops’ and keybinding., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 2c5e356 107/357: [gnugo maint] Add some debugging aids to HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a708759 110/357: [gnugo int] Use ‘cl-labels’ less.,
Stefan Monnier <=
- [elpa] externals/gnugo a35f657 115/357: [gnugo] Support SGF[4] parsing from string data., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 3d8db48 119/357: [gnugo] Declare dependency on ‘ascii-art-to-unicode’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 4b866c7 127/357: [gnugo int] Avoid lower move-num candidates in déjà-vu search., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5b51e4f 129/357: [gnugo int] Decruft: Consolidate "breathe in" loops., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo fda0ca5 130/357: [gnugo int] Move precise fanout computation to "breathe in"., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo cbf99df 131/357: [gnugo int] Insert frolic xrep starting w/ the leaves., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5c87b11 141/357: [gnugo frolic int] Use ‘move-to-column’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo d62412f 144/357: [gnugo int] Add abstraction: gnugo--move-to-bcol, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 4680536 143/357: [gnugo int] Fix bug: Unbreak SGF file output., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 806a2f2 133/357: [gnugo] Add some navigation commands for GNUGO Frolic mode., Stefan Monnier, 2020/11/29