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
1225b81b
Commit
1225b81b
authored
Jan 13, 2013
by
Francois-Rene Rideau
Browse files
2.26.90: fix a missing package use, plus various pathname tweaks.
parent
ba02b6a7
Changes
6
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
1225b81b
...
...
@@ -15,7 +15,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"2.26.
8
9"
;; to be automatically updated by bin/bump-revision
:version
"2.26.9
0
"
;; to be automatically updated by bin/bump-revision
:depends-on
()
:components
((
:module
"build"
:components
((
:file
"asdf"
))))
:in-order-to
(
#+
asdf2.27
(
compile-op
(
monolithic-load-concatenated-source-op
generate-asdf
))))
...
...
header.lisp
View file @
1225b81b
;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*-
;;; This is ASDF 2.26.
8
9: Another System Definition Facility.
;;; This is ASDF 2.26.9
0
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
lisp-build.lisp
View file @
1225b81b
...
...
@@ -3,7 +3,8 @@
(
asdf/package:define-package
:asdf/lisp-build
(
:recycle
:asdf/interface
:asdf
:asdf/lisp-build
)
(
:use
:common-lisp
:asdf/compatibility
:asdf/utility
:asdf/pathname
:asdf/stream
:asdf/os
:asdf/image
)
(
:use
:common-lisp
:asdf/package
:asdf/compatibility
:asdf/utility
:asdf/pathname
:asdf/stream
:asdf/os
:asdf/image
)
(
:export
;; Variables
#:*compile-file-warnings-behaviour*
#:*compile-file-failure-behaviour*
...
...
pathname.lisp
View file @
1225b81b
...
...
@@ -119,6 +119,9 @@ Defaults to T.")
(
defun*
make-pathname*
(
&rest
keys
&key
(
directory
nil
directoryp
)
host
(
device
()
devicep
)
name
type
version
defaults
#+
scl
&allow-other-keys
)
"Takes arguments like CL:MAKE-PATHNAME in the CLHS, and
tries hard to make a pathname that will actually behave as documented,
despite the peculiarities of each implementation"
(
declare
(
ignorable
host
device
devicep
name
type
version
defaults
))
(
apply
'make-pathname
(
append
...
...
@@ -688,7 +691,7 @@ Host, device and version components are taken from DEFAULTS."
(
defun*
native-namestring
(
x
)
"From a CL pathname, a namestring suitable for use by the OS shell"
(
let
((
p
(
pathname
x
)))
#+
clozure
(
let
((
*default
-pathname-defaults
*
#p""
)
)
(
ccl:native-translated-namestring
p
))
; see ccl bug 978
#+
clozure
(
with
-pathname-defaults
(
)
(
ccl:native-translated-namestring
p
))
; see ccl bug 978
#+
(
or
cmu
scl
)
(
ext:unix-namestring
p
nil
)
#+
sbcl
(
sb-ext:native-namestring
p
)
#-
(
or
clozure
cmu
sbcl
scl
)
(
namestring
p
)))
...
...
upgrade.lisp
View file @
1225b81b
...
...
@@ -32,7 +32,7 @@
;; "2.345.6" would be a development version in the official upstream
;; "2.345.0.7" would be your seventh local modification of official release 2.345
;; "2.345.6.7" would be your seventh local modification of development version 2.345.6
(
asdf-version
"2.26.
8
9"
)
(
asdf-version
"2.26.9
0
"
)
(
existing-asdf
(
find-class
(
find-symbol*
:component
:asdf
nil
)
nil
))
(
existing-version
*asdf-version*
)
(
already-there
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
1225b81b
"2.26.
8
9"
"2.26.9
0
"
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