[Openmcl-cvs-notifications] r14423 - /trunk/source/lib/backtrace-lds.lisp

[gb at clozure.com]

Author: gb
Date: Wed Nov 10 22:34:14 2010
New Revision: 14423

Log:
FRAME-FUNCTION: can't assume that FRAME will be an integer (it might
be a FAKE-STACK-FRAME on PPC, at least.)

This has been wrong since it was introduced.

Modified:
    trunk/source/lib/backtrace-lds.lisp

Modified: trunk/source/lib/backtrace-lds.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/backtrace-lds.lisp (original)
+++ trunk/source/lib/backtrace-lds.lisp Wed Nov 10 22:34:14 2010
@@ -34,7 +34,7 @@
 (defun frame-function (frame context)
   "Returns the function using the frame, and pc offset within the function=
, if known"
   (declare (ignore context))
-  (cfp-lfun (require-type frame 'integer)))
+  (cfp-lfun frame))
 =

 (defun frame-supplied-arguments (frame context &key (unknown-marker (%unbo=
und-marker)))
   "Return a list of supplied arguments to the call which opened this frame=
, as best we can reconstruct it"