Commit b4181af0 authored by Troels Henriksen's avatar Troels Henriksen
Browse files

Fixed bug accidentaly introduced by last commit.

parent d72bc798
......@@ -3692,8 +3692,7 @@ Returns NIL if an arglist cannot be displayed."
(multiple-value-list
(find-operand-info ,mark-value-sym ,syntax-value-sym form)))))
(or (recurse (parent form))
(unless (and (typep form 'complete-token-lexeme)
(direct-arg-p form ,syntax-value-sym))
(unless (direct-arg-p form ,syntax-value-sym)
form))))))
(or (recurse (parent immediate-form))
(parent immediate-form))))))
......
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