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
Hugo Ishimaru
asdf
Commits
73b746da
Commit
73b746da
authored
Jul 01, 2013
by
Francois-Rene Rideau
Browse files
3.0.1.13: add herald item for ASDF on CMUCL (contributed by Raymond Toy). Whitespace changes.
parent
e32988a7
Changes
6
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
73b746da
...
...
@@ -74,7 +74,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"3.0.1.1
2
"
;; to be automatically updated by make bump-version
:version
"3.0.1.1
3
"
;; to be automatically updated by make bump-version
:depends-on
()
#+
asdf3
:encoding
#+
asdf3
:utf-8
;; For most purposes, asdf itself specially counts as a builtin system.
...
...
footer.lisp
View file @
73b746da
...
...
@@ -41,6 +41,12 @@
(
and
(
first
l
)
(
register-pre-built-system
(
coerce-name
name
)))
(
values-list
l
))))))))
#+
cmu
(
with-upgradability
()
(
defun
herald-asdf
(
stream
)
(
format
stream
" ASDF ~A"
(
asdf-version
)))
(
setf
(
getf
ext:*herald-items*
:asdf
)
`
(
herald-asdf
)))
;;;; Done!
(
with-upgradability
()
...
...
header.lisp
View file @
73b746da
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 3.0.1.1
2
: Another System Definition Facility.
;;; This is ASDF 3.0.1.1
3
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
@@ -70,8 +70,8 @@
(
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
(
o
r
#+
abcl
2.25
#+
cmu
2.018
#-
(
or
abcl
cmu
)
2.27
))
)
(
when
(
and
existing-version
(
<
existing-version-numbe
r
#+
abcl
2.25
#+
cmu
2.018
#-
(
or
abcl
cmu
)
2.27
))
(
rename-package
:asdf
away
)
(
when
*load-verbose*
(
format
t
"~&; Renamed old ~A package away to ~A~%"
:asdf
away
))))))
...
...
lisp-action.lisp
View file @
73b746da
...
...
@@ -33,15 +33,14 @@
(
defclass
basic-load-op
(
operation
)
())
(
defclass
basic-compile-op
(
operation
)
((
proclamations
:initarg
:proclamations
:accessor
compile-op-proclamations
:initform
nil
)
(
flags
:initarg
:flags
:accessor
compile-op-flags
:initform
nil
))))
(
flags
:initarg
:flags
:accessor
compile-op-flags
:initform
nil
))))
;;; Our default operations: loading into the current lisp image
(
with-upgradability
()
(
defclass
prepare-op
(
upward-operation
sideway-operation
)
((
sideway-operation
:initform
'load-op
)))
(
defclass
load-op
(
basic-load-op
downward-operation
sideway-operation
selfward-operation
)
;; NB: even though compile-op depends
-on
on prepare-op it is not needed-in-image-p,
;; NB: even though compile-op depends on prepare-op it is not needed-in-image-p,
;; so we need to directly depend on prepare-op for its side-effects in the current image.
((
selfward-operation
:initform
'
(
prepare-op
compile-op
))))
(
defclass
compile-op
(
basic-compile-op
downward-operation
selfward-operation
)
...
...
upgrade.lisp
View file @
73b746da
...
...
@@ -52,7 +52,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO
;; "3.4.5.67" would be a development version in the official upstream of 3.4.5.
;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5
;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67
(
asdf-version
"3.0.1.1
2
"
)
(
asdf-version
"3.0.1.1
3
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
73b746da
"3.0.1.1
2
"
"3.0.1.1
3
"
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