Corrected tracing-labels.

Pascal J. Bourguignon [2015-07-01 10:14]
Corrected tracing-labels.
Filename
common-lisp/cesarum/utility.lisp
diff --git a/common-lisp/cesarum/utility.lisp b/common-lisp/cesarum/utility.lisp
index fdbbe05..97f26f5 100644
--- a/common-lisp/cesarum/utility.lisp
+++ b/common-lisp/cesarum/utility.lisp
@@ -1792,12 +1792,13 @@ the local functions."
                        "~&Entering ~A (~@{:~A ~S~^ ~})~%" ',(first def)
                        ,@(mapcan (lambda (arg) (list `',arg arg)) arguments))
                (unwind-protect
-                    (progn (format *trace-output*
-                                   "~&Exiting ~A --> ~{~S~^; ~}~%"
-                                   ',(first def)
-                                   (setf ,res (multiple-value-list
-                                               (progn ,@(cddr def)))))
-                           (values-list ,res))
+                    (let (,res)
+                      (format *trace-output*
+                              "~&Exiting ~A --> ~{~S~^; ~}~%"
+                              ',(first def)
+                              (setf ,res (multiple-value-list
+                                          (progn ,@(cddr def)))))
+                      (values-list ,res))
                  (format *trace-output*
                          "~&Unwinding ~A~%" ',(first def))))))
          defs)
ViewGit