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
15
Issues
15
List
Boards
Labels
Service Desk
Milestones
Merge Requests
8
Merge Requests
8
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
asdf
asdf
Commits
f83db9d9
Commit
f83db9d9
authored
Jun 09, 2015
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'master' into minimakefile
parents
4ab3e838
0d97aac7
Changes
16
Hide whitespace changes
Inline
Side-by-side
Showing
16 changed files
with
262 additions
and
56 deletions
+262
-56
asdf.asd
asdf.asd
+1
-1
debian/changelog
debian/changelog
+3
-2
debian/control
debian/control
+3
-3
debian/upstream/signing-key.asc
debian/upstream/signing-key.asc
+165
-0
doc/Makefile
doc/Makefile
+3
-3
header.lisp
header.lisp
+1
-1
test/asdf-pathname-test.script
test/asdf-pathname-test.script
+1
-0
test/script-support.lisp
test/script-support.lisp
+8
-1
test/test-program.script
test/test-program.script
+1
-1
test/test-utilities.script
test/test-utilities.script
+25
-14
uiop/configuration.lisp
uiop/configuration.lisp
+3
-2
uiop/run-program.lisp
uiop/run-program.lisp
+1
-1
uiop/uiop.asd
uiop/uiop.asd
+14
-9
uiop/utility.lisp
uiop/utility.lisp
+31
-16
upgrade.lisp
upgrade.lisp
+1
-1
version.lisp-expr
version.lisp-expr
+1
-1
No files found.
asdf.asd
View file @
f83db9d9
...
...
@@ -75,7 +75,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"3.1.4.1
3
"
;; to be automatically updated by make bump-version
:version
"3.1.4.1
5
"
;; to be automatically updated by make bump-version
:depends-on
()
#+
asdf3
:encoding
#+
asdf3
:utf-8
:class
#+
asdf3.1
package-inferred-system
#-
asdf3.1
system
...
...
debian/changelog
View file @
f83db9d9
...
...
@@ -2,7 +2,8 @@ cl-asdf (2:3.1.5-1) unstable; urgency=low
Bug fix release:
* Add CLASP support.
* Many miscellaneous fixes for issues on individual implementations.
* Many miscellaneous fixes for issues on individual implementations,
notably UIOP incompatibility introduced by SBCL 1.2.12 (closes: #787909).
* Added OS-COND to UIOP to paper over some incompatibilities about when
and how operating system can be detected on different implementations.
* Fixes to XDG configuration directory handling. Try to stick to the
...
...
@@ -11,7 +12,7 @@ cl-asdf (2:3.1.5-1) unstable; urgency=low
prefixes.
* Documentation improvements.
-- François-René Rideau <fare@tunes.org>
Mon, 25 May 2015 09:52:54
-0400
-- François-René Rideau <fare@tunes.org>
Sat, 06 Jun 2015 16:16:41
-0400
cl-asdf (2:3.1.4-1) unstable; urgency=low
...
...
debian/control
View file @
f83db9d9
...
...
@@ -8,17 +8,17 @@ Uploaders: Peter Van Eynde <pvaneynd@debian.org>,
Julien Danjou <acid@debian.org>,
François-René Rideau <fare@tunes.org>,
Robert P. Goldman <rpgoldman@sift.info>
Build-Depends: debhelper (>
> 7
)
Build-Depends: debhelper (>
= 9
)
Build-Depends-Indep: texinfo, texlive-extra-utils, texlive, texlive-generic-recommended
Standards-Version: 3.9.6.1
Homepage: http://common-lisp.net/project/asdf/
Vcs-Git:
git://common-lisp.net/projects
/asdf/asdf.git
Vcs-Git:
https://gitlab.common-lisp.net
/asdf/asdf.git
Package: cl-asdf
Architecture: all
Recommends: common-lisp-controller, sbcl | lisp-compiler
Replaces: sbcl-common (<= 1:0.9.13.0-2)
Breaks: sbcl-common (<= 1:0.9.13.0-2), common-lisp-controller (<
<
7.3)
Breaks: sbcl-common (<= 1:0.9.13.0-2), common-lisp-controller (<
=
7.3)
Depends: ${misc:Depends}
Suggests: cl-launch (>= 4.1)
Description: Another System Definition Facility
...
...
debian/upstream/signing-key.asc
0 → 100644
View file @
f83db9d9
-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: GnuPG v2.0.17 (GNU/Linux)
mQQNBFFRJokBIADE6EA0lzzEnSEMDvNHxj3zLBMOdeu784PBAY36bJIjiRoAF7dV
5Z4kVYVldfpFQzkslGVn60b+U2WMfiFlxVqHARWRg5m2s/SEj7P3a2XAA1bEPENc
VpieSfeMGcaswA8pyosJgNE9yIbbvQm17NsXpr/UiLjVf8DHbc7Jf1IOePgUB8Xd
ixaOPIjF43IBO8rdEmBVRMW53U0XLRLIkocfqQINnba241MBx75rHz6fH54XYTqc
FO7Jx0VMCb9/hxPiMVSVtdYyH+6sEjZ5pJeOzr47oulIOP8RAbZPTvuPonCNRNMr
po9IwkDPjeZjoXKWUmiIFr25kamXYZXhXpprCPo1kM2TkOPOn8/KO8FVDsR/lw/D
eOJmFy1WPZhJ4XAAkG6uaNnVrmO3RYptEuiqAzdEnX8zdjDdVrbUqGu4boJu8WrJ
7RB34QiRSetpccEfZU7jH6syz7KsGD+xziq1P4fhN8hLxmr9lHF6f/a7hAcCmNq5
P0zxwmawSaU39lvchSMzyh1YV0LLyLae2nPptrdAqLl/ip0C1QbqOsAM2Zc7sDjV
Aa/U0LXwDhW+O2kKp+yIp7w+/L6pJb2sWss0mHuqg4zJfziKLuoo8GyjugON8Rmj
y9gf6Et7v50GzccXNL1XM+rrVTthIE/4vCJxLGvxDLl1rICaqK/okDO2oF09bUXc
yL8fh13jRF2ZZoqoLYmF6kMHIHdPuPNGpkO6aXIGRRrClCsSL2E1ibakwPFR1VhC
un9To6sl55aCK2OnRMoaHMhxZRTlgstJBUDN2FdtxKlB2579ocx+bh3UZh8g4vpf
furQ1eAqKdLkR8lfPY8spgjc1LxK/PYaAzAoJ35GwI3A6bHfQ4oi0VygjLfrJyWh
jrnUME/8LdWPVM8NjkJ5fd5kAp0JmRzPCneagUEn/07b5fgQ0HOVd8zlFFDLc+WL
sle5AtRoKZXjge9BKabR5x7Y+v/4boIcdDghyZLEgWLBX2lroTy75CKrxfd/iaAO
OJTdyKtT1Mw+ynBRbQAAAZN+hdQaloNFTVVghKzVW4cDHT/XOJmFnoGvshscavts
FmKgG0VOoZz2ygolX27Uq0HDExlVm8r9g6ZPyhBP567YIUCSYT+HzJ0RsR91e6h2
igN+JqEV7n8AihdvB4++TvpCBGdVG9jbXVfTdLQRF5uz0tK6oiMouhoAvjhbCYur
9i6K/M64J0HfUzNlDbU2RoxiBMIvR0wkXs87AjF/DPuzoeT5eVlVFcGOOQvYNug8
3YajuA+OqvF+Vg7meHxYAku/s5q/SlXzJYKURhyToNQQ2A07JpaaDODHoYrjJd+I
zCHTbVyHenBCxE5sl4FF+STRy/bT+ac4kfYdABEBAAG0OkZyYW7Dp29pcy1SZW7D
qSBSaWRlYXUgxJDhurduZy1WxakgQsOibiA8ZmFocmVlQGdtYWlsLmNvbT6JBDgE
EwECACIFAlFcZH8CGwMGCwkIBwMCBhUIAgkKCwQWAgMBAh4BAheAAAoJEPF1QJ59
hmWKTj4f/i2Y//ddfptHnMwTp3q5kkDblmCXXsyFX0LUdYWtGHC4979p/6bT4Goh
LpuTw3Zg7MF6RJM0UG+xM5CS3W4xsPAfDRE/0kH+71HkFpVn1SATTHU3AcjcO47m
BjGkCP8FIXAXFIZB2RKbRCHq9Vv/8NsHvdytCKMZ+cMmxZvZVWJtmTbXhsZwIDo0
Gmn7Mt/EljFh4dU+yeMOWlJhJi0CqPrVxvEKqFuFttLmeCfzPL4MBS/O7QaWgynO
7WaXnw9T1Lyw3tvZYzUAxMOmeBT7Q0GK+NmoC6vpnu/Dl41ERwaf51UERRd+19AA
XrjqdeK0lsKLzo83obxxFejliiH32IRi7Qw+W9Ec/deLOMaJDUcIFzToTp7xp/9m
ak2XSFnfgRsEFfdD1hol0+QMpPWeTcgN/JJ7NaIwsRqVga2myN+1rNO+fq0r6w18
wgLcmNGXJj8kz4iOPZSFhtMLEWusMWWoUQlQwFMcTO04CnKy1VYqa/CigvHr1a5q
icEyO2emhLqSn0K6wYB1wmhzVaG9eJzpR1gOYy9BfFS91mtqUYa7+KCxSqduuSwe
wlsWt2eZ4jC4ZVWWun/gTw39wB39fDWwkHN4Dbf3IQPLKLJK2n2yD5OFNC+2u8pT
xAgNfYA+JqSEZ5no78MPTjMKdsY9gIsQajXV2dfRrKJBCs4aIJ1Q7VKPYjt6DyDH
yuh8wTHbmQdR09JJpqJJTwfrECHKkaOiCv2X9RDjFYfeOieZHcIMQ18/UrBvAV4C
rqPKdKqqYqPyLLWFK9SvFikrx2ibSGsCL+8vfhgbCO5NxgnkPz6Voxvs7TCjmNbF
K06RbRks+efvc3XkuVkeP7eKkEEOXqwPl0XSxi+zmi68Sw6hEuUzEaLAU5pBDAuD
A5hVoUYpBpaadYKYuKpi/hWd2avy2Yjm2eFSq7csiNZcuHBBtc+VSJSHisKzwn+T
XuifJ49qRK5h4FGOyJ/iBMPB1EPTZLONSzNUbUeXB4GvGVF9b/5OSK1sWt5/kSUC
vOxCp6Jk6v+q1rkxuGfE5Pjzcpg6nGszNg0/lT2wdwM5o1/wajL8MtvT2n/hEQ1r
Mqvf03sqwQPHt5bOTfG3RHVkZo7f4NlURBBmLFjj5UbWK5q05LDVGWtJwlfvzDtQ
xMK+3nYMVFuDBBIR5HsfRh6EPTO99JCLTOgrVpy1GkNe7CaKz3waU03JkWNMQy/j
BnJPIptU9fHVaonpWjUaMEAd8dI1DtLtg2CcoU1SjupQQEnL5HT3BhC9+J7W7TDT
H+jD+7yuKLq283jw970dAGPmJtO88mUn4YaBL8LqEDpAF6LmuxBDM2Ra9TgQhqyz
xX7vJ2ygIIRTWnbeal5TG8nTBqlb60O0LUZyYW5jb2lzLVJlbmUgUmlkZWF1IChL
ZXkjNCkgPGZhcmVAdHVuZXMub3JnPokENwQTAQoAIQUCUVEmiQIbAwULCQgHAwUV
CgkICwUWAgMBAAIeAQIXgAAKCRDxdUCefYZlinOPH/wPD/dpgAeAkTjSwdu6M1cD
4G7miPVoCOvrkwc4cm2S+mqTe5echOECSh4SCCgY8mzMhV/C5qBvTnRPTI36hmvW
ttUqi0H2cBnoViJp9LKdNPjJ3bq/67Ax8piyKJLIY66jBjYC88STm/f7zO12xwid
O4AjkLyWEr5bcM7U7fshSco8kGqw7ACWhbo3YMmftDYJLuogqc3H3VVmksCwqqSZ
02RgjRUj9EzOpv8YQ46HMHik660esu37k+RPe3/3VfYuqN4TdgeCR5kbhzSOgtJl
5nbyQ8qmbDgsDLI1yx8qccLJU/8cnAIuJ/r/70Mgl7956KtoQENWkOXylv8UI5pE
I051nChONWOoBmZuYf0PQF7v/zGywig8NGXw90ERf30dUPGj+Tyyl+OskegNrKvj
PMlEt7qbXmyDPVMDXZFOznbjW/bga8QHGM9rwArB0wLC/VoIw+mUXS87vCWscwk+
zjHYGxNtitpSZXgalYsQWt9F/dYfjeGwOS0A5sGeUXVxBVgJ5MVvXfVruqDieRhC
1mHf2V+Fjqf5JoZyUa8s+UzMOtZFFv/3F7dEjk0ODL4b/GUUPuGtIe7EymLJylS8
77PoprGkfVBPIcOLgxEgpPMXaVaPvcuf4vO88fieRJPD2eB/ZKq7WmbK51tDOk4l
1h88YUORi35KL/jAgDLD81eHUDEET7mo0taQN4lFMBXpfDmIpXVeb8ygiUc98mGT
PEpjHYumOC8fs9pPVneK/7BVF5ypNkoZTIR/zg5a3DgfMsoDVPwTdbQouRmWCE/L
RZ8ns11ylH1C9v6voGvWCLXXg24qggshA5TLPq0OF1EbuLM17bP2fStdZ2ELccNY
EfyhK56gDLaLSFt7iv5YQDWIxhvd7El6lZ5Vn1pD2lYYb9AVebfcDUMU7Rl2+MH8
KXL3Las5Hcw2rxF1m7EGsivWBkVngS/2d7BkK6xXG/F/iGzSQ6rjLbUdrTNTdahy
FsmrMcmyHVpA6ETehb+HX3woADI9Wp9X9Cy4Cq2MEF5zxhvLvz2n9rNr2D2dPd+2
fuKmp9DGugkmDmxVdcjC3l/wKkh1BxgEXEj3O5+SIqrGIUNJhql7Y1SYXe9mVLWb
LUkSQo4Gm263xRGL1rdp79UADoeOdwzWrqKJY8IH6QPCipn5fXyAhmjXl/4SczFX
QzTXI3Sf6AvpO86ETl3AXUzbC2Pcv/z7SglxEd8D50VOhwqejnXmEZUHpApLqN6H
vhuV+0/d/mbEoua8LvYLRKI5Qyx40Xyl8bbRnhFDIOtiJ13/ct2KoK7YNeeG38Dg
ZTgkY5dI4/psdz/BSNnlAjIV+1kRukSEXQ6YLEszuFDdBz/vdkBKvK5wViiyel8s
tCVGcmFuY29pcy1SZW5lIFJpZGVhdSA8ZmFyZUB0dW5lcy5vcmc+iQQ4BBMBAgAi
BQJRlW0vAhsDBgsJCAcDAgYVCAIJCgsEFgIDAQIeAQIXgAAKCRDxdUCefYZlimcI
H/9pfMwVDJrXweRp627jFnemiuxNrVkHMWhSeyhbrZhvDCehvzQA/7O+hsVA2a6F
GRQmYbko3b94eDhfxtW5s/TdLN8Dw/uapAiysu5SCe5RNd5dFlUQrdZY63SqzGkN
mLTyW5myps/Jd0AGHRmSSO+7KX8tYq/uI5N5MDjZf3hH4YiaWhmg9HT+hkeok6LX
dtVPb20dXhoZZf9pSSPUjh17gPuBh8/9bhszNGyR0duBCwTudbmVe63hz7oxKtiW
sDjpm0MPjibKsWUqmOaJPGs321/rcLbvXsrcAwT+r+TcVR3Hc78zpPkJkhT1pMe0
C2V8O1zqgnIbmKRh54lSll6SzStZEOunaUv5FkwMjmTABdqfkA+n3Qzz7oOzSOmd
OlDzr5eHE9xKJezwIdCdH/fcpF6rbrCQ3S/nyKoJlj6JZOc71Pcmir2rAPPq0fnQ
rb56P0VOetrBe7TRsvCiywSd9MXF3mUdA4ej/0ICzU7VuLpTvJK0U6DtRZwMcgSz
MCky4R3vgRrGg3jxf0ymoJ56ngEsrKm+9wk2o3HGmK9xLeBLoscMpZJiTOlokU1F
WSoHKwKQCAdj07AY1JI2PNES0Wps9qFIOQ11LOGllXNGHZcUqi9Mbz2NXbEDkFQs
cgs5h31dX4xCP4p8ibSltTwgGA3GDmI52UYc+GhkxkyZ03n6SIjbNJGN/nsMaMDt
/06T3p76Ab3qAQF7TJpAUD3rzUb3uCyh9B0gQWAy76dP5hlQWEQRRHM51pi8aN1H
evRf3aO8m7aLv9iB0PvAPM31V+Sq9rinsQtASNrU5zwOycR9fJ4BWa56hM6KLZ6B
61zwN8L4ZoE32FuPs83RoA9dnuET88c4GDk+9SB4HRFALqaAdcpLPfD44+ylKni2
iI9n6nwU1TAIdrs+BcwF3KsPupzFaF6KhfgyfeiD9FyV3JXt/TzRbZPqloCpW1yY
e7z/ujO82TXnRf9aAU/Hhqqz17j3lR81ql+KA+p4iYaOAqjmVoDxvI/jqjVvY5/o
Yl2Ka4p+Id0bsJnxsmtfcJvZrLT9xHK80Lt7tJ6YmNmVCT2m/WnmcHsmcOr/kEg/
vTEy6amOid+m9Ku3gtklCDOZA1Pp+Gh6ntjiGeV++SdB9oho15RdTcuubnqxMDaR
5lKy1rx3pCajvPyFomYIO1V/r6Gyidj5AY8gnRaBXIJue8PIP3mJlvOGN82NRZox
IH1DjkY607x10Ei0dkMckK0lHhE4K19Dig+vXKKOds5gNbQ535l3HOS9ECEWJh6s
iBV2Ewg1soP/ynp7JZK9HOzOvFy3vtkYQPiQtPJCbmKc7vKdwgNx3oQOlz4mKfyK
q8PfykSfTVxsejFoJ6jpsEObuQINBFFRJ1QBEACvRnHKQDcqqWQPiry4b0EjzznH
/RtQXfC0ioiNy4WPvNROPnnF77RQn7zXg9m6jKHKhhI9NW5yHJVLtkyLMdCWKNGN
UsYGkUIAjldFDTfKndracJmZLRIpnLn6XglqkWqDMadS3O/qjiRMTMhOOYCfVoup
ZmLPA1CzMo7MIukSkJHjqSV9CVNoUlZ7++n3b70WBKgzvBPfTCxgXDV254Xlug2F
EXyxPCtlEnXQsLdp34FO+cPMrlUz277oTfLQ106JYGz62qDAq2kklHoTSnGJ18cz
knFotFdTiV+jJUQAyH8wpUM4j6GcnpuDpeULxr8c2bjkM86nCXqCWFmiUHFvNo6Y
D0AGC2vtkcXzYUonlnxQyIoR2BP2lYu+GiibWxhVPFHd2+6dqDjEj4CKC72dGfre
VRPSansxXT41xJ7r3oh3Xf30XwepuFwbraTFCUyAoIP9dOhOeH0CBe8xk+gmOt+5
PAExumVdxYcV6qQColYtenbicNNKSi8q+DPSdqpw2VRm0EOuHVMOsa/e15fE6P8K
wJjZOKFnLXodpVPMJoq1Iz49zbj2C+3qdzQRaU0FOYxd9/iWZ/Zt0fdjwE1Jf357
AJYMB5VdmaAatAWBuap3eNajN4H254nb7HSA4AWA11MI8sQNBZxnYgb2RFhRN25P
sEvd5czGhTPDpOecAwARAQABiQQfBBgBCgAJBQJRUSdUAhsMAAoJEPF1QJ59hmWK
bOogALpKuShsmyyWn8FoLF+4rplPBe/8VGLZjup6eRBbVVW6H+FXutgl0nGl685F
u1lolCtLK5EmCokbp/HPqpIknBx8o7hPXmNbFOCrrEi18p7HRmdypxMa2PHn6uRn
UbPWo1L5/5TK6QNsQ7GsKy3tqU6cMh+WJEo1X30bo4ubLniTsceHBvhbxR4UbSom
VY/JZyCVouknsT5ZU+yOQ+mG3A7Fi2oSpFtD9Iqu9bBNq1B1XEbgcapCTBoES+Kg
xqPYNCU2jkm7F46V3rsNIhpSlJf8g6mZ78regMd01z4EKoHa+jEnZAjk7W4BUFEE
q7stO1NUPwYkogxfv70ktlfgs+HXvXpemkYBIDk6AU5bM8WDxBoavlhlC0lp32iw
Lej2bxufZ8i8DRLZOaUicNnRCNt3Da4EJGJDB1OJC3poforcwI2deXbKUCT+/C3P
aC3CpEwC9+0Pas3+jitb6gY1tbCUDCvUhc60Qc86J1yWOqqs26tolpavIf7aUzfz
MAHVaFygCqie0hfajCzvNM/pheUDlDQFjwDqeBV36btPedfEkSfOK1iYDOEKr8c1
gWx/HT4fYlZ9I8IcAwZ74Az/diVOARdCAiZyXtFsV18aS1Hnbc6CRqkj/eWWLSk+
pW+GkRQBhnHed8+Rrk+f1GOvPmUH8S+4Vj0BU+PACq0UwU4xO4+SOrXInYnf/doh
3Y8OZjLRqwQ9e1CKwDnKn6CFZjxjDHUWmtFOREgWX50mGt27tSC/vUHTmuvNAlpW
0BCLUANVT/Y86hNOixdCbANlHkohbKsTS4P0/tQt5k5jNFZlIR4U/KN6hZvlmJYv
LbtXqfNpkbzOqh3sjLUqUY4rv25KftG7w9972a1a4XHezd+Wq3EBB/QFWXfmTQVs
DSWcVyB7irXcvBa4xGa9Rv1imM0aTtkPQ3wcXyo7nTPFeAhazswE4LeVFKbEsfGF
e5r8Ad6Dl8lc5okTw3o5W4Y7DrEEtlUU/iNz4sA0nVXZwZpwE+8ImSlq1hWUcqLi
rROtCXFXozq4c/5iPKNFOq6WxwWowN3LU+d2RIXYQp37NJqXE+W+5YyB75Xo+0qW
6W7YNSNSk9dlmydsbjCkkNFyNB2L93+u7MhYK46I2fDsWL2bHcb5yrFJEVEu1dSR
5y9KFd1lTAKSsuLesoSQ+KN1vJr+9P5QaY7OdsClO1y6IDlJakxbUKm9Jp9AIZOF
vHB8hZjy2bFVqVL+GnbmOG/b4WfrNMLLh9y7GhOTSqpq+cE3VljNfNl9Rs4ao2GS
nD/dpLIlCussczHwwgUIhjasbxgF2mhNu54W6F/jrc/sZJcoHjNU/JZ/ggpJVOtU
OHKK5HzoaM8h5QPCBrbndxnoVQG5AQ0EUVEnggEIAOO5muVKTxA1572xDQNINvTL
jpcP+6AM94GxOVoE1S15CFm8Mxlq3NKadYJZjZROeFPpSpcaQBFF79uErc78wMrv
offmNjpwArMP3Yho4xRV+gyl6oEcyDyPOHCpUAX9Rc7xMhxhjBYLqucPUL6WS8dr
hE1dKXgjvRw5lTJqGGVCX62eun2wchUhgE1AlCBnvqu81caomIBI49BQGz2XUiuj
XlW6r4i5N0klM/v94lX+hCVCOvb/S20sKPtH+3FvYu0RkXAheI5RNUBtS30RYagM
IeXzgyBiCIJEEkYqwvDy1h5b1+3wAQMV9MqyFCxNuHfAeeWSUc5BIqEaUiWtgz0A
EQEAAYkFPgQYAQoACQUCUVEnggIbAgEpCRDxdUCefYZlisBdIAQZAQoABgUCUVEn
ggAKCRAYSvZz/I6ta6bNB/9zip0DTXClFb+rabDfERQjBtLBvVyDolIeYO7fmwtZ
3GGZkqE/ZypmmOQfc/wISyAh8e5U9LkuGG7vf9uf/U9HzKH+JCUatNdYtvNmVHgL
vFYKrAeJ3j95gqfUwiEVVa2BszA1ZuWltu38MxxN1Wt1vf0mu+gHMEdYo+IPwtym
ADZY7voA8obQB/h3u7Xs1EkSA4h2qUhpYNbWpB0kySIjVeqTXUXUPzSAJStSXeaD
QWvl7mlQqtislm98yui1d6GHzV9oRV3trx5KrR/nRpFaTmTZ68tl2o8kS557oKLY
bD3dI9BDKEni/FDRlp9OajoRkAKRzLJL2UxxYjjzMnbYkwAgAMAh1d6/ZnqdBKLq
d6O8tnHoVqxJugw62MTZrP4fvCYvD46kDI+SsiKFhVP30qi+G4vlculczlXUovp6
SwAHesoG9lh9PU6mt1q6vCTlQ6qGX4HUlodZ7glrpg78ppofNvf5rscDsSXJ/eUl
JXbfLhk6vAuYf2SHQHiW6wzsURGbR7qsf7SuYFXZVm7L8PZkB8p4sHaWSTFr//yR
kkaqfj2nNLrSKp1J3xzxbTiqPhFbkan/Zl/dgnea0m89ByxZ4ro9GKqgZz3HcLxw
vRHjVLIVMkDN5jemIUqtP/Wsmy8CMoGgCyANiR+ehs84IuaLz0l4pTKaR1EK+Xwt
Lq6GQDNDuO00E8diHsj5VoNlbvQE63Pi4hiliEy9zasnDyKqPhk3npAlIwKYoYcG
q3okIO2A1KKAfnaDJPXbR9qOEyRS/qQENqXiluaHk8T85SuUvlr3wnh2YY2Nbcwa
3CmMk8HUKicpBGemtUY5wrTVpwscQ9z/igCK7VQsO0HYp/u8SkiKmTH5de1A4Ojf
JDULzX00K/yZT3J/0FOY5tlgZFu5+eFnO5qT9BENR6gbcim4BxtRmaM3hQSHXnuO
d3uuJHTXJZLuMYsC0l63pnYwz9j8P928CSekYM6crW8kVC91dlmMtuIVkwiPl/Zx
T60PoKdlgsLOchcrNPQY1cUTnSh0oMPp8aXSMUpapsiinhlhXpdfC5fsoxjmqG2t
Jp0JhZU0WCfZ+FByyk9BTh7L14eqlVvbWI0tiQqi6QyW025s6RxTNEY58tcR2nXP
JCB6TfVwPiKk1iNliz2UrEy7Jd0M9Ypdsf9TBkHOtDt1yjYRvB6dOI6N5Jj2yxZM
LHz+ywiWRo8t4H46BpaiPyvnDMKnHTW7rkZP9IH2HCdzzGTC8bLlHY+vCYli3NVg
BWlHfs/VT0A4nSh1jgj08S/OJ98mCpR2w5s16xUqFqKEsI6pFu9vkg4kElgmizqq
d+emeB0HwYL6ktQLM75YB/oziRP4v8EMpfR6snJQI1c6w7R8thUpixC/J2gBzWO3
s7DFKnonfY7fNpFaPy3kAzRDSyjou8cyrhvPXv38pkMmIGjBE0WYixb3oqAw1/6L
Iya6AIZXqEFdG0DzyD25gl06pu0UZzPLa6q3cgOJpMd9Hlzo3T5mIYsykoqsY33j
PmGKIk1ngNpXZ54YevY2YnLydqhoCRVw1Z1b+7a9+kCwEQb5pot4XIaqKfjcFVtT
SGEULY17+le/cMOvn/YWExBiT8G9sWcU2ZlsRAZM9y+ls8x5pv6yIBuTGf54IlsH
kJqtX4PqpPrVj0ll3OeAhCW1mNt+FqN7NKuR8R3SaNiGauRbls6oJcM3FR+X6z8D
GuDvGt4=
=M2XV
-----END PGP PUBLIC KEY BLOCK-----
doc/Makefile
View file @
f83db9d9
...
...
@@ -34,9 +34,9 @@ website: all
rsync
-lt
--no-g
${webfiles}
${website}
rsync
-lt
--no-g
../debian/changelog
${website}
/changelog
.PHONY
:
clean
very
clean manual-html
clean
:
.PHONY
:
clean
intermediate-
clean manual-html
intermediate-
clean
:
rm
-f
${intermediate}
veryclean
:
clean
clean
:
intermediate-
clean
rm
-f
asdf.html asdf.pdf asdf.info
rm
-rf
asdf/ asdf.t2d/
header.lisp
View file @
f83db9d9
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*-
;;; This is ASDF 3.1.4.1
3
: Another System Definition Facility.
;;; This is ASDF 3.1.4.1
5
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
test/asdf-pathname-test.script
View file @
f83db9d9
...
...
@@ -462,4 +462,5 @@
#-gcl ;; expected-failure: GCL crashes badly
(assert (test-component-pathnames :delete-host t :support-string-pathnames nil))
#+os-unix
(test-pathname-parsing)
test/script-support.lisp
View file @
f83db9d9
...
...
@@ -169,8 +169,15 @@ Some constraints:
the other expression ~S yields that:~% ~S~% ~S~%"
qx
x
(
pathname-components
x
)
qy
y
(
pathname-components
y
)))
;; accept equalp namestrings, to account for case-independent filesystems
((
equalp
(
namestring
x
)
(
namestring
y
))
(
warn
"These two expressions yield pathnames that have equalp namestrings yet are not pathname-equal~%~
the first expression ~S yields this:~% ~S~% ~S~%
the other expression ~S yields that:~% ~S~% ~S~%"
qx
x
(
pathname-components
x
)
qy
y
(
pathname-components
y
)))
(
t
(
error
"These two expressions yield paths that are
not pathname-equal
~%~
(
error
"These two expressions yield paths that are
equal in any way:
~%~
the first expression ~S yields this:~% ~S~% ~S~%
the other expression ~S yields that:~% ~S~% ~S~%"
qx
x
(
pathname-components
x
)
...
...
test/test-program.script
View file @
f83db9d9
...
...
@@ -27,7 +27,7 @@
(unless (find-system :lisp-invocation nil)
(leave-test "Couldn't find lisp-invocation. Probably your ASDF ext/ directory needs submodule update." 1))
(load-system :lisp-invocation)
(unless (version-satisfies (find-system :lisp-invocation) "1.0.
4
")
(unless (version-satisfies (find-system :lisp-invocation) "1.0.
8
")
(leave-test "Lisp-invocation library isn't new enough to test successfully. Probably your ASDF ext/ directory needs submodule update." 1))
;; Disable any user source registry.
(initialize-source-registry `(:source-registry :ignore-inherited-configuration))
...
...
test/test-utilities.script
View file @
f83db9d9
...
...
@@ -7,15 +7,17 @@
:output '(:string :stripped t))
:ensure-directory t))
(chdir *asdf-directory*)
(assert (pathname-equal *asdf-directory* (getcwd)))
(assert (pathname-equal *asdf-directory* (getcwd-from-run-program)))
(assert (probe-file* "asdf.asd"))
(chdir *test-directory*)
(assert (pathname-equal *test-directory* (getcwd)))
(assert (pathname-equal *test-directory* (getcwd-from-run-program)))
(assert (probe-file* "test-utilities.script"))
(let ((asdf-directory (truename *asdf-directory*)))
(chdir asdf-directory)
(assert-pathname-equal asdf-directory (getcwd))
(assert-pathname-equal asdf-directory (getcwd-from-run-program))
(assert (probe-file* "asdf.asd")))
(let ((test-directory (truename *test-directory*)))
(chdir test-directory)
(assert-pathname-equal test-directory (getcwd))
(assert-pathname-equal test-directory (getcwd-from-run-program))
(assert (probe-file* "test-utilities.script")))
(assert
(every #'directory-pathname-p
...
...
@@ -270,6 +272,7 @@
#+non-base-chars-exist-p
(progn
(assert (= 0 (character-type-index #\a)))
(assert (not (base-string-p *last-char-string*)))
(assert (not (base-string-p (make-string 10 :element-type 'character))))
(assert (not (base-string-p (unbasify "abc"))))
...
...
@@ -278,11 +281,19 @@
(assert (base-string-p (reduce/strcat (mapcar 'basify '("a" "b" nil "cd")))))
(assert (base-string-p (strcat (basify "ab") (basify "cd"))))
(assert (not (base-string-p (strcat (basify "ab") #\c *last-char* (unbasify "d")))))
(assert (base-string-p (strcat (basify "ab") #\c #\d))))
(or #+os-windows ;; Avoid C:\Users vs C:\users on SBCL.
(equalp (namestring *test-directory*) (namestring (getcwd)))
(assert-pathname-equal *test-directory* (getcwd)))
(assert (base-string-p (strcat (basify "ab") #\c #\d)))
(when (< 256 char-code-limit)
(let* ((lambda-char (code-char 955))
(lambda-string (string lambda-char)))
(assert (= 1 (character-type-index lambda-char)))
(assert-equal (strings-common-element-type (list #\a nil (strcat "hello, " lambda-string "world")))
#-lispworks 'character #+lispworks7 'lw:bmp-char #+(and lispworks (not lispworks7)) 'lw:simple-char)
(when (< 65536 char-code-limit)
(let* ((amagi (format nil "~a~a" (code-char #x120BC) (code-char #x12104))))
(assert (= #+lispworks7 2 #-lispworks7 1 (character-type-index (first-char amagi))))
(assert-equal (strings-common-element-type (list #\a nil amagi lambda-string))
#+(or (not lispworks) lispworks7) 'character
#+(and lispworks (not lispworks7)) 'lw:simple-char))))))
(assert-equal +crlf+ (map 'string 'code-char '(13 10)))
(assert-equal +lf+ (map 'string 'code-char '(10)))
...
...
uiop/configuration.lisp
View file @
f83db9d9
...
...
@@ -327,13 +327,13 @@ also \"Configuration DSL\"\) in the ASDF manual."
(
defun
xdg-config-dirs
(
&rest
more
)
"The preference-ordered set of additional base paths to search for configuration files.
Returns a list of absolute directory pathnames.
MORE may contain specifications for a subpath relative to these directories:
a
MORE may contain specifications for a subpath relative to these directories:
subpathname specification and keyword arguments as per RESOLVE-LOCATION \(see
also \"Configuration DSL\"\) in the ASDF manual."
(
mapcar
#'
(
lambda
(
d
)
(
resolve-location
`
(
,
d
,
more
)))
(
or
(
getenv-absolute-directories
"XDG_CONFIG_DIRS"
)
(
os-cond
((
os-windows-p
)
(
xdg-data-dirs
"config/"
more
))
((
os-windows-p
)
(
xdg-data-dirs
"config/"
))
(
t
(
mapcar
'parse-unix-namestring
'
(
"/etc/xdg/"
)))))))
(
defun
xdg-cache-home
(
&rest
more
)
...
...
@@ -367,6 +367,7 @@ also \"Configuration DSL\"\) in the ASDF manual."
MORE may contain specifications for a subpath relative to these directories: a
subpathname specification and keyword arguments as per RESOLVE-LOCATION \(see
also \"Configuration DSL\"\) in the ASDF manual."
(
declare
(
ignorable
more
))
(
os-cond
((
os-unix-p
)
(
list
(
resolve-absolute-location
`
(
,
(
parse-unix-namestring
"/etc/"
)
,
more
))))))
...
...
uiop/run-program.lisp
View file @
f83db9d9
...
...
@@ -767,7 +767,7 @@ It returns a process-info plist with possible keys:
(
reduce/strcat
(
os-cond
((
os-unix-p
)
`
(
,@
(
when
redirections
`
(
"exec "
,@
redirections
" ; "
))
,@
chdir
,
normalized
))
((
os-windows-p
)
`
(
,@
chdir
@redirections
,
normalized
)))))))
((
os-windows-p
)
`
(
,@
chdir
,
@
redirections
,
normalized
)))))))
(
defun
%system
(
command
&rest
keys
&key
input
output
error-output
directory
&allow-other-keys
)
...
...
uiop/uiop.asd
View file @
f83db9d9
;;; -*- mode: lisp -*-
(
in-package
:asdf
)
(
unless
(
or
(
member
:asdf3
*features*
)
(
and
(
member
:asdf2
*features*
)
(
version-satisfies
(
asdf:asdf-version
)
"2.11.4"
)
))
#-
asdf3
(
unless
(
or
#+
asdf2
(
version-satisfies
(
asdf:asdf-version
)
"2.11.4"
))
(
error
"UIOP requires ASDF 2.011.4 or later."
))
(
defun
call-without-redefinition-warnings
(
thunk
)
...
...
@@ -14,15 +14,20 @@
#'
muffle-warning
))
(
funcall
thunk
)))
(
defsystem
:uiop
(
defsystem
"uiop"
#+
asdf3
:long-name
#+
asdf3
"Utilities for Implementation- and OS- Portability"
:description
"Portability library for Common Lisp programs"
:long-description
"UIOP provides runtime support for Common Lisp programs:
Basic general-purpose utilities that are in such a need that you can't portably construct a
complete program without using some of them. UIOP replaces ASDF/DRIVER and ASDF-UTILS, and offers a
superset of the functionality provided by CL-FAD, EXTERNAL-PROGRAM, TRIVIAL-SHELL, TRIVIAL-BACKTRACE
and a lot of the functionality formerly provided by CL-LAUNCH, XCVB-DRIVER, TRIVIAL-FEATURES,
plus a tiny subset of functionality from ALEXANDRIA and FARE-UTILS.
It is transcluded into asdf.lisp together with ASDF/DEFSYSTEM, so if you did (require \"asdf\")
you already have a matching UIOP loaded."
:author
"Francois-Rene Rideau"
:licence
"MIT"
:class
#.
(
if
(
find-class
'package-system
nil
)
'package-system
'system
)
#+
asdf3
:long-name
#+
asdf3
"Utilities for Implementation- and OS- Portability"
:description
"Runtime support for Common Lisp programs"
:long-description
"Basic general-purpose utilities that are in such a need
that you can't portably construct a complete program without using them.
UIOP is also known as ASDF/DRIVER or ASDF-UTILS,
being transcluded into asdf.lisp together with ASDF/DEFSYSTEM."
#+
asdf3
:version
#+
asdf3
(
:read-file-form
"version.lisp-expr"
)
#+
asdf-unicode
:encoding
#+
asdf-unicode
:utf-8
#+
asdf3
:around-compile
#+
asdf3
call-without-redefinition-warnings
...
...
uiop/utility.lisp
View file @
f83db9d9
...
...
@@ -195,15 +195,24 @@ Returns two values: \(A B C\) and \(1 2 3\)."
;;; Characters
(
with-upgradability
()
;; base-char != character on ECL, LW, SBCL, Genera. LW also has SIMPLE-CHAR.
(
defconstant
+non-base-chars-exist-p+
#.
(
not
(
subtypep
'character
'base-char
)))
#-
scl
;; In SCL, all characters seem to be 16-bit base-char, but this flag gets set somehow???
(
when
+non-base-chars-exist-p+
(
pushnew
:non-base-chars-exist-p
*features*
)))
(
with-upgradability
()
;; base-char != character on ECL, LW, SBCL, Genera.
;; NB: We assume a total order on character types.
;; If that's not true... this code will need to be updated.
(
defparameter
+character-types+
;; assuming a simple hierarchy
#(#+
non-base-chars-exist-p
base-char
#+
lispworks
lw:simple-char
character
))
(
defparameter
+max-character-type-index+
(
1-
(
length
+character-types+
))))
#.
(
coerce
(
loop*
:for
(
type
next
)
:on
'
(
;; In SCL, all characters seem to be 16-bit base-char
;; Yet somehow character fails to be a subtype of base-char
#-
scl
base-char
;; LW6 has BASE-CHAR < SIMPLE-CHAR < CHARACTER
;; LW7 has BASE-CHAR < BMP-CHAR < SIMPLE-CHAR = CHARACTER
#+
lispworks7
lw:bmp-char
#+
lispworks
lw:simple-char
character
)
:unless
(
and
next
(
subtypep
next
type
))
:collect
type
)
'vector
))
(
defparameter
+max-character-type-index+
(
1-
(
length
+character-types+
)))
(
defconstant
+non-base-chars-exist-p+
(
plusp
+max-character-type-index+
))
(
when
+non-base-chars-exist-p+
(
pushnew
:non-base-chars-exist-p
*features*
)))
(
with-upgradability
()
(
defun
character-type-index
(
x
)
...
...
@@ -215,7 +224,7 @@ Returns two values: \(A B C\) and \(1 2 3\)."
(
symbol
(
if
(
subtypep
x
'base-char
)
0
1
))))
(
otherwise
'
(
or
(
position-if
(
etypecase
x
(
character
#'
(
lambda
(
type
)
(
typep
x
type
)))
(
character
#'
(
lambda
(
type
)
(
typep
x
type
)))
(
symbol
#'
(
lambda
(
type
)
(
subtypep
x
type
))))
+character-types+
)
(
error
"Not a character or character type: ~S"
x
))))))
...
...
@@ -234,14 +243,20 @@ Returns two values: \(A B C\) and \(1 2 3\)."
#.
(
if
+non-base-chars-exist-p+
`
(
aref
+character-types+
(
loop
:with
index
=
0
:for
s
:in
strings
:do
(
cond
((
=
index
,
+max-character-type-index+
)
(
return
index
))
((
emptyp
s
))
;; NIL or empty string
((
characterp
s
)
(
setf
index
(
max
index
(
character-type-index
s
))))
((
stringp
s
)
(
unless
(
>=
index
(
character-type-index
(
array-element-type
s
)))
(
setf
index
(
reduce
'max
s
:key
#'
character-type-index
:initial-value
index
))))
(
t
(
error
"Invalid string designator ~S for ~S"
s
'strings-common-element-type
)))
(
flet
((
consider
(
i
)
(
cond
((
=
i
,
+max-character-type-index+
)
(
return
i
))
,@
(
when
(
>
+max-character-type-index+
1
)
`
(((
>
i
index
)
(
setf
index
i
)))))))
(
cond
((
emptyp
s
))
;; NIL or empty string
((
characterp
s
)
(
consider
(
character-type-index
s
)))
((
stringp
s
)
(
let
((
string-type-index
(
character-type-index
(
array-element-type
s
))))
(
unless
(
>=
index
string-type-index
)
(
loop
:for
c
:across
s
:for
i
=
(
character-type-index
c
)
:do
(
consider
i
)
,@
(
when
(
>
+max-character-type-index+
1
)
`
((
when
(
=
i
string-type-index
)
(
return
))))))))
(
t
(
error
"Invalid string designator ~S for ~S"
s
'strings-common-element-type
))))
:finally
(
return
index
)))
'
'character
))
...
...
upgrade.lisp
View file @
f83db9d9
...
...
@@ -67,7 +67,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.1.4.1
3
"
)
(
asdf-version
"3.1.4.1
5
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
f83db9d9
"3.1.4.1
3
"
"3.1.4.1
5
"
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