;;; Code:
-(eval-when-compile
- (require 'cl))
+(eval-when-compile (require 'cl-lib))
(require 'chess-game)
(defun chess-module-create (derived game &optional buffer-name
&rest ctor-args)
(let* ((name (symbol-name derived))
- handler buffer)
+ handler)
(unless (and (require derived nil t)
(setq handler (intern-soft (concat name "-handler"))))
(chess-error 'no-such-module name))
(defun chess-module-set-game* (module game)
(chess-with-current-buffer module
- (assert game)
+ (cl-assert game)
(if chess-module-game
(chess-module-detach-game nil))
(setq chess-module-game game)