From 07df6a3455c8d6b108549e44d20bf151df2f3409 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Tue, 30 Apr 2002 19:48:28 +0000
Subject: removed dependencies on cl

---
 chess-maint.el   | 8 ++++++--
 chess-message.el | 2 +-
 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)
-- 
cgit v1.2.3