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
Jan Moringen
asdf
Commits
a988cdbb
Commit
a988cdbb
authored
Oct 14, 2016
by
Francois-Rene Rideau
Browse files
Fix upgrade from ASDF2 on Allegro
Apparently, rename-package is badly broken on Allegro.
parent
896ceedf
Changes
1
Hide whitespace changes
Inline
Side-by-side
upgrade.lisp
View file @
a988cdbb
...
...
@@ -35,13 +35,15 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO
(
defvar
*previous-asdf-versions*
(
let
((
previous
(
asdf-version
)))
(
when
previous
;; Punt on
hard package
upgrade
:
from ASDF1 or ASDF2
;; Punt on upgrade from ASDF1 or ASDF2
, by renaming (or deleting) the package.
(
when
(
version<
previous
"2.27"
)
;; 2.27 is the first to have the :asdf3 feature.
(
let
((
away
(
format
nil
"~A-~A"
:asdf
previous
)))
(
rename-package
:asdf
away
)
#-
allegro
(
rename-package
:asdf
away
)
#+
allegro
(
delete-package
:asdf
)
;; rename-package fails badly on allegro
(
when
*load-verbose*
(
format
t
"~&; Renamed old ~A package away to ~A~%"
:asdf
away
)))))
(
list
previous
)))
#-
allegro
(
format
t
"~&; Renamed old ~A package away to ~A~%"
:asdf
away
)
#-
allegro
(
format
t
"~&; Deleted old ~A package~%"
:asdf
))))
(
list
previous
))))
;; This public variable will be bound shortly to the currently loaded version of ASDF.
(
defvar
*asdf-version*
nil
)
;; We need to clear systems from versions older than the one in this (private) parameter.
...
...
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