commit a71ac816341dbfa67512765a9dbc33773e624f77
parent f9e9741a7f0f8cb9d041a5e3b6335ddd7edd229e
Author: Georges Dupéron <jahvascriptmaniac+github@free.fr>
Date: Tue, 2 Nov 2010 01:43:45 +0100
Fusion de fonctions-utiles et util.lisp .
Diffstat:
2 files changed, 12 insertions(+), 9 deletions(-)
diff --git a/fonctions-utiles b/fonctions-utiles
@@ -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
@@ -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))
