Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
813dce67
Commit
813dce67
authored
Feb 21, 2004
by
pfdietz
Browse files
Fixed screwup in UNINTERN
parent
ef2e11ba
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/import.lsp
View file @
813dce67
...
...
@@ -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)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment