Commit da1f09cd authored by ram's avatar ram
Browse files

In DEBUG-FUNCTION-FOR-COMPONENT, fixed error in the determination of whether a

lambda was a main-entry that prevented it from ever being true.  [With
structure type checking, this would have been detected right off...]
parent 96568a33
......@@ -492,7 +492,7 @@
(let* ((2env (environment-info (lambda-environment fun)))
(dispatch (lambda-optional-dispatch fun))
(main-p (and dispatch
(eq fun (optional-dispatch-main-entry fun))))
(eq fun (optional-dispatch-main-entry dispatch))))
(dfun (make-compiled-debug-function
:name (cond ((leaf-name fun))
((let ((ef (functional-entry-function
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment