Commit f83db9d9 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Merge branch 'master' into minimakefile

parents 4ab3e838 0d97aac7
......@@ -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.13" ;; to be automatically updated by make bump-version
:version "3.1.4.15" ;; to be automatically updated by make bump-version
:depends-on ()
#+asdf3 :encoding #+asdf3 :utf-8
:class #+asdf3.1 package-inferred-system #-asdf3.1 system
......
......@@ -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
......
......@@ -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
......
-----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-----
......@@ -34,9 +34,9 @@ website: all
rsync -lt --no-g ${webfiles} ${website}
rsync -lt --no-g ../debian/changelog ${website}/changelog
.PHONY: clean veryclean 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/
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*-
;;; This is ASDF 3.1.4.13: Another System Definition Facility.
;;; This is ASDF 3.1.4.15: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
......
......@@ -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)
......@@ -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)
......
......@@ -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))
......
......@@ -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)))
......
......@@ -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))))))
......
......@@ -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)
......
;;; -*- 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
......
......@@ -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))
......
......@@ -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.13")
(asdf-version "3.1.4.15")
(existing-version (asdf-version)))
(setf *asdf-version* asdf-version)
(when (and existing-version (not (equal asdf-version existing-version)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment