Skip to content
Snippets Groups Projects
Commit f9196531 authored by ram's avatar ram
Browse files

In FIND-ORIGINAL-SOURCE, moved the exit test to the head of the loop so that we

don't lose when we want the whole top-level form.
parent 89c20a88
No related branches found
No related tags found
No related merge requests found
......@@ -1085,6 +1085,7 @@
(let ((form root)
(current (rest rpath)))
(loop
(when (null current) (return))
(let ((head (first form)))
(when (symbolp head)
(let ((name (symbol-name head)))
......@@ -1099,8 +1100,6 @@
(car next)
next))))
(context (list head)))))))
(when (null current) (return))
(setq form (nth (pop current) form)))
(cond ((context)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment