Changeset 149

Timestamp:

Dec 20, 2003, 4:16:23 AM (21 years ago)

Author:

Gary Byers

Message:

Fix dangling close paren.

File:

• trunk/ccl/lib/describe.lisp (modified) (1 diff)

trunk/ccl/lib/describe.lisp

@@ -1164 +1164 @@
 (defmethod compute-line-count ((f closure-inspector))
   (let* ((o (inspector-object f))
-        (nclosed (nth-value 8 (function-args (ccl::closure-function o)))))
-      (setf (closure-n-closed f) nclosed)
-      (+ (call-next-method)
-         1                              ; the function we close over
-         1                              ; "Closed over values"
-         nclosed
-         (if (disasm-p f) 1 0)))))      ; "Disassembly"
+         (nclosed (nth-value 8 (function-args (ccl::closure-function o)))))
+    (setf (closure-n-closed f) nclosed)
+    (+ (call-next-method)
+       1                              ; the function we close over
+       1                              ; "Closed over values"
+       nclosed
+       (if (disasm-p f) 1 0))))      ; "Disassembly"
 
 (defmethod line-n ((f closure-inspector) n)