Commit 2da1ee96 authored by pfdietz's avatar pfdietz

Decide not to test for the continue restart at all.

parent 813dce67
......@@ -177,8 +177,8 @@
outer-restarts)
:key #'restart-name)))
(assert my-restarts)
(unintern isym pkg)
(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)
......@@ -209,8 +209,8 @@
outer-restarts)
:key #'restart-name)))
(assert my-restarts)
(unintern isym pkg)
(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