]> code.delx.au - gnu-emacs-elpa/blobdiff - chess-module.el
Work on the manual.
[gnu-emacs-elpa] / chess-module.el
index 0a9abf4d426190c8a25756455275e8f1c54f5568..c58184401ef48e4fa7625cf5eeb9318321edea48 100644 (file)
@@ -20,8 +20,7 @@
 
 ;;; Code:
 
-(eval-when-compile
-  (require 'cl))
+(eval-when-compile (require 'cl-lib))
 
 (require 'chess-game)
 
@@ -48,7 +47,7 @@
 (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))
@@ -87,7 +86,7 @@
 
 (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)