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
Karsten Poeck
asdf
Commits
34444553
Commit
34444553
authored
Oct 19, 2018
by
Robert Goldman
Browse files
Bump version to 3.3.2.11
parent
87888bf6
Changes
8
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
34444553
...
...
@@ -93,7 +93,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"3.3.2.1
0
"
;; to be automatically updated by make bump-version
:version
"3.3.2.1
1
"
;; to be automatically updated by make bump-version
:depends-on
()
:components
((
:module
"build"
:components
((
:file
"asdf"
))))
.
#-
asdf3
()
#+
asdf3
...
...
doc/asdf.texinfo
View file @
34444553
...
...
@@ -65,7 +65,7 @@ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
@
titlepage
@
title
ASDF
:
Another
System
Definition
Facility
@
subtitle
Manual
for
Version
3.3.2.1
0
@
subtitle
Manual
for
Version
3.3.2.1
1
@
c
The
following
two
commands
start
the
copyright
page
.
@
page
@
vskip
0
pt
plus
1f
illl
...
...
@@ -82,7 +82,7 @@ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
@
node
Top
,
Introduction
,
(
dir
),
(
dir
)
@
top
ASDF
:
Another
System
Definition
Facility
@
ifnottex
Manual
for
Version
3.3.2.1
0
Manual
for
Version
3.3.2.1
1
@
end
ifnottex
...
...
header.lisp
View file @
34444553
;;; -*- mode: Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*-
;;; This is ASDF 3.3.2.1
0
: Another System Definition Facility.
;;; This is ASDF 3.3.2.1
1
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
interface.lisp
View file @
34444553
...
...
@@ -77,6 +77,7 @@
#:system-maintainer
#:system-license
#:system-licence
#:system-version
#:system-source-file
#:system-source-directory
#:system-relative-pathname
...
...
system.lisp
View file @
34444553
...
...
@@ -9,6 +9,7 @@
#:system-source-file
#:system-source-directory
#:system-relative-pathname
#:system-description
#:system-long-description
#:system-author
#:system-maintainer
#:system-licence
#:system-license
#:system-version
#:definition-dependency-list
#:definition-dependency-set
#:system-defsystem-depends-on
#:system-depends-on
#:system-weakly-depends-on
#:component-build-pathname
#:build-pathname
...
...
@@ -77,19 +78,21 @@ a SYSTEM is redefined and its class is modified."))
(
defclass
system
(
module
proto-system
)
;; Backward-compatibility: inherit from module. ASDF4: only inherit from parent-component.
(
;; {,long-}description is now inherited from component, but we add the legacy accessors
(
description
:accessor
system-description
)
(
long-description
:accessor
system-long-description
)
(
author
:accessor
system-author
:initarg
:author
:initform
nil
)
(
maintainer
:accessor
system-maintainer
:initarg
:maintainer
:initform
nil
)
(
licence
:accessor
system-licence
:initarg
:licence
:accessor
system-license
:initarg
:license
:initform
nil
)
(
homepage
:accessor
system-homepage
:initarg
:homepage
:initform
nil
)
(
bug-tracker
:accessor
system-bug-tracker
:initarg
:bug-tracker
:initform
nil
)
(
mailto
:accessor
system-mailto
:initarg
:mailto
:initform
nil
)
(
long-name
:accessor
system-long-name
:initarg
:long-name
:initform
nil
)
(
description
:writer
(
setf
system-description
))
(
long-description
:writer
(
setf
system-long-description
))
(
author
:writer
(
setf
system-author
)
:initarg
:author
:initform
nil
)
(
maintainer
:writer
(
setf
system-maintainer
)
:initarg
:maintainer
:initform
nil
)
(
licence
:writer
(
setf
system-licence
)
:initarg
:licence
:writer
(
setf
system-license
)
:initarg
:license
:initform
nil
)
(
homepage
:writer
(
setf
system-homepage
)
:initarg
:homepage
:initform
nil
)
(
bug-tracker
:writer
(
setf
system-bug-tracker
)
:initarg
:bug-tracker
:initform
nil
)
(
mailto
:writer
(
setf
system-mailto
)
:initarg
:mailto
:initform
nil
)
(
long-name
:writer
(
setf
system-long-name
)
:initarg
:long-name
:initform
nil
)
;; Conventions for this slot aren't clear yet as of ASDF 2.27, but whenever they are, they will be enforced.
;; I'm introducing the slot before the conventions are set for maximum compatibility.
(
source-control
:accessor
system-source-control
:initarg
:source-control
:initform
nil
)
(
source-control
:writer
(
setf
system-source-control
)
:initarg
:source-control
:initform
nil
)
(
builtin-system-p
:accessor
builtin-system-p
:initform
nil
:initarg
:builtin-system-p
)
(
build-pathname
:initform
nil
:initarg
:build-pathname
:accessor
component-build-pathname
)
...
...
@@ -165,6 +168,35 @@ NB: The onus is unhappily on the user to avoid clashes."
(
frob-substrings
(
coerce-name
name
)
'
(
"/"
":"
"\\"
)
"--"
)))
;;; System virtual slot readers, recursing to the primary system if needed.
(
with-upgradability
()
(
defvar
*system-virtual-slots*
'
(
long-name
description
long-description
author
maintainer
mailto
homepage
source-control
licence
version
bug-tracker
)
"The list of system virtual slot names."
)
(
defun
system-virtual-slot-value
(
system
slot-name
)
"Return SYSTEM's virtual SLOT-NAME value.
If SYSTEM's SLOT-NAME value is NIL and SYSTEM is a secondary system, look in
the primary one."
(
or
(
slot-value
system
slot-name
)
(
unless
(
primary-system-p
system
)
(
slot-value
(
find-system
(
primary-system-name
system
))
slot-name
))))
(
defmacro
define-system-virtual-slot-reader
(
slot-name
)
`
(
defun*
,
(
intern
(
concatenate
'string
(
string
:system-
)
(
string
slot-name
)))
(
system
)
(
system-virtual-slot-value
system
',slot-name
)))
(
defmacro
define-system-virtual-slot-readers
()
`
(
progn
,@
(
mapcar
(
lambda
(
slot-name
)
`
(
define-system-virtual-slot-reader
,
slot-name
))
*system-virtual-slots*
)))
(
define-system-virtual-slot-readers
)
(
defun
system-license
(
system
)
(
system-virtual-slot-value
system
'licence
)))
;;;; Pathnames
(
with-upgradability
()
...
...
uiop/version.lisp
View file @
34444553
...
...
@@ -12,7 +12,7 @@
(
in-package
:uiop/version
)
(
with-upgradability
()
(
defparameter
*uiop-version*
"3.3.2.1
0
"
)
(
defparameter
*uiop-version*
"3.3.2.1
1
"
)
(
defun
unparse-version
(
version-list
)
"From a parsed version (a list of natural numbers), compute the version string"
...
...
upgrade.lisp
View file @
34444553
...
...
@@ -94,7 +94,7 @@ previously-loaded version of ASDF."
;; "3.4.5.67" would be a development version in the official branch, on top 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.3.2.1
0
"
)
(
asdf-version
"3.3.2.1
1
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
34444553
"3.3.2.1
0
"
"3.3.2.1
1
"
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