Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Jan Moringen
asdf
Commits
a988cdbb
Commit
a988cdbb
authored
Oct 14, 2016
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
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
Showing
1 changed file
with
6 additions
and
4 deletions
+6
-4
upgrade.lisp
upgrade.lisp
+6
-4
No files found.
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
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