Corrected tracing-labels.

Pascal J. Bourguignon [2015-07-01 10:23]
Corrected tracing-labels.
Filename
common-lisp/cesarum/utility.lisp
diff --git a/common-lisp/cesarum/utility.lisp b/common-lisp/cesarum/utility.lisp
index 97f26f5..9fa5f68 100644
--- a/common-lisp/cesarum/utility.lisp
+++ b/common-lisp/cesarum/utility.lisp
@@ -1785,12 +1785,15 @@ the local functions."
            (let ((arguments (make-argument-list
                              (parse-lambda-list (second def) :ordinary)))
                  (res (gensym "RESULTS")))
+             (when (null (first (last arguments)))
+               (setf arguments (butlast arguments)))
              `(,(first def) ,(second def)
                ,@(when (stringp (third def))
                    (list (third def)))
                (format *trace-output*
-                       "~&Entering ~A (~@{:~A ~S~^ ~})~%" ',(first def)
-                       ,@(mapcan (lambda (arg) (list `',arg arg)) arguments))
+                       "~&Entering ~A (~{~{:~A ~S~}~^ ~})~%" ',(first def)
+                       (list ,@(mapcar (lambda (arg) `(list ',arg ,arg))
+                                arguments)))
                (unwind-protect
                     (let (,res)
                       (format *trace-output*
ViewGit