[Openmcl-cvs-notifications] r11740 - /trunk/source/lib/describe.lisp

[gb at clozure.com]

Author: gb
Date: Mon Feb 16 08:41:21 2009
New Revision: 11740

Log:
Not sure what (LINE-N THREAD-INSPECTOR) method used to do, but
have it CALL-NEXT-METHOD rather than return NIL.

Modified:
    trunk/source/lib/describe.lisp

Modified: trunk/source/lib/describe.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/describe.lisp (original)
+++ trunk/source/lib/describe.lisp Mon Feb 16 08:41:21 2009
@@ -1493,7 +1493,8 @@
 )
 =

 (defmethod line-n ((thread thread-inspector) n)
-  (declare (ignore n))
+  (declare (ignorable n))
+  (call-next-method)
 )
 =

 #|