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

Fixed FIND-ORIGINAL-SOURCE not to bogue out when there is an atomic top-level

form.
 
parent 007bb303
No related branches found
No related tags found
No related merge requests found
......@@ -1121,6 +1121,9 @@
(let ((form root)
(current (rest rpath)))
(loop
(when (atom form)
(assert (null current))
(return))
(let ((head (first form)))
(when (symbolp head)
(let ((name (symbol-name head)))
......
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