removed dependencies on cl

2 files changed, 7 insertions, 3 deletions

diff --git a/chess-maint.el b/chess-maint.el
index 2854507..5a9b65b 100644
--- a/chess-maint.el
+++ b/chess-maint.el
@@ -1,13 +1,17 @@
 (add-to-list 'load-path ".")
 
-(require 'cl)
+(require 'pp)
 (require 'chess)
 (require 'chess-pgn)
 
+(defmacro assert (form)
+  (unless (byte-compiling-files-p)
+    `(unless ,form
+       (error "Assertion failed: %s" (pp-to-string ,form)))))
+
 (defun chess-generate-texinfo-file ()
   (require 'lispdoc)
   (require 'texinfo)
-  (require 'pp)
   (with-temp-buffer
     (insert-file-contents-literally "chess.texi")
     (texinfo-mode)
diff --git a/chess-message.el b/chess-message.el
index 9723283..587f197 100644
--- a/chess-message.el
+++ b/chess-message.el
@@ -23,7 +23,7 @@
 	  (let ((str (assq (car def) (cdr entry))))
 	    (if str
 		(setcdr str (cdr def))
-	      (push def (cdr entry)))))
+	      (setcdr entry (cons def (cdr entry))))))
       (push (cons catalog definitions) chess-message-catalog))))
 
 (defun chess-string (key &rest arguments)