X-Git-Url: https://git.piment-noir.org/?p=TD_LISP.git;a=blobdiff_plain;f=exercices%2Flists.lsp;h=35590dada335ff070e4a9546859cdafbe8777b1c;hp=6bf12a5e7a1e1803016fd4b6bc1e3d03b33b8c1a;hb=7c69bee537f3343712cfa6b35b6433c9f8cb3459;hpb=c4cb602cbbf151134a81d95e6d07a016521cbb48

diff --git a/exercices/lists.lsp b/exercices/lists.lsp
index 6bf12a5..35590da 100755
--- a/exercices/lists.lsp
+++ b/exercices/lists.lsp
@@ -169,7 +169,7 @@
     ((append 
        ;the pivot is the first element of the list
        (qsort (list< (first L) (rest L))) 
-       (cons (first L) '()) 
+       (list (first L))
        (qsort (list>= (first L) (rest L)))))))
 (println "qsort")
 (println (qsort C))