Commit 813dce67 authored by pfdietz's avatar pfdietz

Fixed screwup in UNINTERN

parent ef2e11ba
......@@ -177,9 +177,8 @@
outer-restarts)
:key #'restart-name)))
(assert my-restarts)
(unintern isym)
(when (find 'continue my-restarts :key #'restart-name)
(continue c))
(unintern isym pkg)
(when (find 'continue my-restarts :key #'restart-name) (continue c))
(return-from done :good)))))
(import sym pkg))
(eqlt (find-symbol name pkg) sym)
......@@ -210,9 +209,8 @@
outer-restarts)
:key #'restart-name)))
(assert my-restarts)
(unintern isym)
(when (find 'continue my-restarts :key #'restart-name)
(continue c))
(unintern isym pkg)
(when (find 'continue my-restarts :key #'restart-name) (continue c))
(return-from done :good)))))
(import sym pkg))
(eqlt (find-symbol name pkg) sym)
......
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