From 5425563d760584e636b6308e557e0e484090dcea Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Thu, 3 Apr 2014 14:14:37 +0200 Subject: chess-ics.el: Pacify compiler. --- chess-ics.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'chess-ics.el') diff --git a/chess-ics.el b/chess-ics.el index 8aa77bf..aa1afff 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -468,13 +468,13 @@ See `chess-ics-game'.") (while sessions (if (not (buffer-live-p (caar sessions))) (message "Found dead engine session in `chess-ics-sessions'") - (let ((game (chess-display-game (cadar sessions))) + (let ((game (chess-display-game (cl-cadar sessions))) (tag-pairs tags) (found t)) (when (= game-number (chess-game-data game 'ics-game-number)) (if (null tags) (progn - (chess-display-destroy (cadar sessions)) + (chess-display-destroy (cl-cadar sessions)) (if last-session (setcdr last-session (cdr sessions)) (setq chess-ics-sessions (cdr sessions)))) @@ -488,7 +488,7 @@ See `chess-ics-game'.") (setq found nil)))) (if (not found) (error "Game not found") - (chess-engine-destroy (cadar sessions)) + (chess-engine-destroy (cl-cadar sessions)) (if last-session (setcdr last-session (cdr sessions)) (setq chess-ics-sessions (cdr sessions)))))))) @@ -575,7 +575,7 @@ See `chess-ics-game'.") (if (chess-pos-side-to-move position) 3 2) (if (chess-pos-side-to-move position) 2 1)))) (move (unless (string= (match-string 29) "none") - (case (aref (match-string 29) (1- (length (match-string 29)))) + (cl-case (aref (match-string 29) (1- (length (match-string 29)))) (?+ (chess-pos-set-status position :check)) (?# (chess-pos-set-status position :checkmate) (chess-pos-set-epd position 'ce 32767))) -- cgit v1.2.3