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 @@ ...@@ -1085,6 +1085,7 @@
(let ((form root) (let ((form root)
(current (rest rpath))) (current (rest rpath)))
(loop (loop
(when (null current) (return))
(let ((head (first form))) (let ((head (first form)))
(when (symbolp head) (when (symbolp head)
(let ((name (symbol-name head))) (let ((name (symbol-name head)))
...@@ -1099,8 +1100,6 @@ ...@@ -1099,8 +1100,6 @@
(car next) (car next)
next)))) next))))
(context (list head))))))) (context (list head)))))))
(when (null current) (return))
(setq form (nth (pop current) form))) (setq form (nth (pop current) form)))
(cond ((context) (cond ((context)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment