Fix output due to params/desc separation changes

functions.lisp

@@ -148,8 +148,11 @@
               (format stream-out "~a~%~a~%" (+ 1 tries) params))
             nil))
 
-      (format t "~a	~A	~A	~A	~A	~A	~A	~A~%"
-              level fonction
+      (format t "~a	~A	~{~A ~}	~A	~A	~A	~A	~A~%"
+              level
+              fonction
+
+              ;; returns params without :desc keyword and associated value
               (let ((desc-pos (position :desc params)))
                 (if desc-pos
                     (remove nil