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
Gary Palter
asdf
Commits
cb00a919
Commit
cb00a919
authored
Jun 03, 2021
by
Eric Timmons
Committed by
Robert Goldman
Jun 03, 2021
Browse files
Remove a loop* (see
!172
)
parent
9d819a5f
Changes
1
Show whitespace changes
Inline
Side-by-side
upgrade.lisp
View file @
cb00a919
...
...
@@ -140,7 +140,7 @@ previously-loaded version of ASDF."
(
if
(
consp
x
)
(
values
(
car
x
)
(
cadr
x
))
(
values
x
:asdf
))
(
find-symbol*
s
p
nil
)))
(
asyms
(
l
)
(
mapcar
#'
asym
l
)))
(
loop
*
:for
(
name
superclasses
slots
)
:in
redefined-classes
(
loop
:for
(
name
superclasses
slots
)
:in
redefined-classes
:for
sym
=
(
find-symbol*
name
:asdf
nil
)
:when
(
and
sym
(
find-class
sym
))
:do
#+
ccl
(
eval
`
(
defclass
,
sym
,
(
asyms
superclasses
)
,
(
asyms
slots
)))
...
...
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