Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
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
Hide whitespace changes
Inline
Side-by-side
upgrade.lisp
View file @
cb00a919
...
...
@@ -140,11 +140,11 @@ 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
:for
sym
=
(
find-symbol*
name
:asdf
nil
)
:when
(
and
sym
(
find-class
sym
))
:do
#+
ccl
(
eval
`
(
defclass
,
sym
,
(
asyms
superclasses
)
,
(
asyms
slots
)))
#-
ccl
(
setf
(
find-class
sym
)
nil
)))))
;; mkcl
(
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
)))
#-
ccl
(
setf
(
find-class
sym
)
nil
)))))
;; mkcl
;;; Self-upgrade functions
(
with-upgradability
()
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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