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
3a9457a8
Commit
3a9457a8
authored
Nov 18, 2015
by
Francois-Rene Rideau
Browse files
Move all code out of header.lisp
parent
1050e5d9
Changes
3
Hide whitespace changes
Inline
Side-by-side
header.lisp
View file @
3a9457a8
...
...
@@ -46,40 +46,3 @@
;;; we can't use defsystem to compile it. Hence, all in one file.
#+
xcvb
(
module
())
(
in-package
:cl-user
)
#+
cmu
(
eval-when
(
:load-toplevel
:compile-toplevel
:execute
)
(
setf
ext:*gc-verbose*
nil
))
;;; pre 1.3.0 ABCL versions do not support the bundle-op on Mac OS X
#+
abcl
(
eval-when
(
:load-toplevel
:compile-toplevel
:execute
)
(
unless
(
and
(
member
:darwin
*features*
)
(
second
(
third
(
sys::arglist
'directory
))))
(
push
:abcl-bundle-op-supported
*features*
)))
;; Punt on hard package upgrade: from ASDF1 always, and even from ASDF2 on most implementations.
(
eval-when
(
:load-toplevel
:compile-toplevel
:execute
)
(
unless
(
member
:asdf3
*features*
)
(
let*
((
existing-version
(
when
(
find-package
:asdf
)
(
or
(
symbol-value
(
find-symbol
(
string
:*asdf-version*
)
:asdf
))
(
let
((
ver
(
symbol-value
(
find-symbol
(
string
:*asdf-revision*
)
:asdf
))))
(
etypecase
ver
(
string
ver
)
(
cons
(
format
nil
"~{~D~^.~}"
ver
))
(
null
"1.0"
))))))
(
first-dot
(
when
existing-version
(
position
#\.
existing-version
)))
(
second-dot
(
when
first-dot
(
position
#\.
existing-version
:start
(
1+
first-dot
))))
(
existing-major-minor
(
subseq
existing-version
0
second-dot
))
(
existing-version-number
(
and
existing-version
(
read-from-string
existing-major-minor
)))
(
away
(
format
nil
"~A-~A"
:asdf
existing-version
)))
(
when
(
and
existing-version
(
<
existing-version-number
#+
(
or
allegro
clisp
lispworks
sbcl
)
2.0
#-
(
or
allegro
clisp
lispworks
sbcl
)
2.27
))
(
rename-package
:asdf
away
)
(
when
*load-verbose*
(
format
t
"~&; Renamed old ~A package away to ~A~%"
:asdf
away
))))))
uiop/common-lisp.lisp
View file @
3a9457a8
...
...
@@ -64,7 +64,11 @@
(
wait-on-semaphore
(
external-process-completed
proc
))))
(
values
(
external-process-%exit-code
proc
)
(
external-process-%status
proc
))))))
#+
clozure
(
in-package
:uiop/common-lisp
)
#+
clozure
(
in-package
:uiop/common-lisp
)
;; back in this package.
#+
cmucl
(
eval-when
(
:load-toplevel
:compile-toplevel
:execute
)
(
setf
ext:*gc-verbose*
nil
))
#+
cormanlisp
(
eval-when
(
:load-toplevel
:compile-toplevel
:execute
)
...
...
upgrade.lisp
View file @
3a9457a8
...
...
@@ -30,7 +30,16 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO
(
cons
(
format
nil
"~{~D~^.~}"
rev
))
(
null
"1.0"
))))))
;; Important: define *p-a-v* /before/ *a-v* so that it initializes correctly.
(
defvar
*previous-asdf-versions*
(
if-let
(
previous
(
asdf-version
))
(
list
previous
)))
(
defvar
*previous-asdf-versions*
(
let
((
previous
(
asdf-version
)))
(
when
previous
;; Punt on hard package upgrade: from ASDF1 or ASDF2
(
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
)
(
when
*load-verbose*
(
format
t
"~&; Renamed old ~A package away to ~A~%"
:asdf
away
)))))
(
list
previous
)))
(
defvar
*asdf-version*
nil
)
;; We need to clear systems from versions yet older than the below:
(
defparameter
*oldest-forward-compatible-asdf-version*
"2.33"
)
;; 2.32.13 renames a slot in component.
...
...
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