From a71ac816341dbfa67512765a9dbc33773e624f77 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <jahvascriptmaniac+github@free.fr>
Date: Tue, 2 Nov 2010 01:43:45 +0100
Subject: [PATCH] Fusion de fonctions-utiles et util.lisp .

---
 fonctions-utiles |  8 --------
 util.lisp        | 12 ++++++++++++
 2 files changed, 12 insertions(+), 8 deletions(-)
 delete mode 100644 fonctions-utiles

diff --git a/fonctions-utiles b/fonctions-utiles
deleted file mode 100644
index 07d126c..0000000
--- a/fonctions-utiles
+++ /dev/null
@@ -1,8 +0,0 @@
-(rplacd x val) = (setf (cdr x) val)
-(rplaca x val) = (setf (car x) val)
-(intersection l1 l2) = évident
-(acons clé valeur liste-associative) = (cons (cons clé valeur) liste-associative) ;; Ne gère pas les doublons !!!
-(push x liste) = (setf liste (cons x liste))
-(remove-if-not predicate list) filtre la liste en fonction de predicate.
-(incf x) incrémente x, (decf x) décrémente x.
-(loop ......) lire la doc...
\ No newline at end of file
diff --git a/util.lisp b/util.lisp
index dc0acc9..3779e05 100644
--- a/util.lisp
+++ b/util.lisp
@@ -1,3 +1,15 @@
+;; Fonctions utiles
+
+;; Liste de quelques fonctions pratiques de LISP :
+;; (rplacd x val) = (setf (cdr x) val)
+;; (rplaca x val) = (setf (car x) val)
+;; (intersection l1 l2) = évident
+;; (acons clé valeur liste-associative) = (cons (cons clé valeur) liste-associative) ;; Ne gère pas les doublons et ne fait pas de setf.
+;; (push x liste) = (setf liste (cons x liste))
+;; (remove-if-not predicate list) filtre la liste en fonction de predicate.
+;; (incf x) incrémente x, (decf x) décrémente x.
+;; (loop ......) lire la doc...
+
 (defmacro aset (k v alist)
   `(let ((my-k ,k)
          (my-v ,v))