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
b7ad3eb2
Commit
b7ad3eb2
authored
Mar 20, 2013
by
Robert P. Goldman
Browse files
Merge branch 'master' of
ssh://common-lisp.net/project/asdf/public_html/asdf
parents
5e8b50cd
c12ec395
Changes
7
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
b7ad3eb2
...
...
@@ -74,7 +74,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"2.32.2
5
"
;; to be automatically updated by make bump-version
:version
"2.32.2
6
"
;; 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.
...
...
header.lisp
View file @
b7ad3eb2
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.32.2
5
: Another System Definition Facility.
;;; This is ASDF 2.32.2
6
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
test/test-utilities.script
View file @
b7ad3eb2
...
...
@@ -210,14 +210,15 @@
(assert (base-string-p (make-string 10 :element-type 'character))))
(defun basify (s) (coerce s 'base-string))
(defun unbasify (s) (coerce s '(array character (*)))) ; on ECL, literals are base strings (!)
#+non-base-chars-exist-p
(progn
(assert (not (base-string-p (make-string 10 :element-type 'character))))
(assert (not (base-string-p "abc")))
(assert (not (base-string-p
(unbasify
"abc")))
)
(assert (base-string-p (basify "abc")))
(assert (not (base-string-p (strcat "a" NIL #\b "cd"))))
(assert (not (base-string-p (strcat "a" NIL #\b
(unbasify
"cd"))))
)
(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 "d"))))
(assert (not (base-string-p (strcat (basify "ab") #\c
(unbasify
"d"))))
)
(assert (base-string-p (strcat (basify "ab") #\c #\d))))
test/test1.preferences
deleted
100644 → 0
View file @
5e8b50cd
(in-package :asdf-test)
(setf *test6* :yes)
uiop/lisp-build.lisp
View file @
b7ad3eb2
...
...
@@ -231,10 +231,18 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when
name
))
(
defun
reify-function-name
(
function-name
)
(
let
((
name
(
or
(
first
function-name
)
;; defun: extract the name
(
first
(
second
function-name
)))))
;; defmethod: keep gf name, drop method specializers
(
let
((
sec
(
second
function-name
)))
(
or
(
and
(
atom
sec
)
sec
)
; scoped method: drop scope
(
first
sec
))))))
; method: keep gf name, drop method specializers
(
list
name
)))
(
defun
unreify-function-name
(
function-name
)
function-name
)
(
defun
nullify-non-literals
(
sexp
)
(
typecase
sexp
((
or
number
character
simple-string
symbol
pathname
)
sexp
)
(
cons
(
cons
(
nullify-non-literals
(
car
sexp
))
(
nullify-non-literals
(
cdr
sexp
))))
(
t
nil
)))
(
defun
reify-deferred-warning
(
deferred-warning
)
(
with-accessors
((
warning-type
ccl::compiler-warning-warning-type
)
(
args
ccl::compiler-warning-args
)
...
...
@@ -242,13 +250,10 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when
(
function-name
ccl:compiler-warning-function-name
))
deferred-warning
(
list
:warning-type
warning-type
:function-name
(
reify-function-name
function-name
)
:source-note
(
reify-source-note
source-note
)
:args
(
destructuring-bind
(
fun
formals
env
)
args
(
declare
(
ignorable
env
))
(
list
(
unsymbolify-function-name
fun
)
(
loop
:for
arg
:in
formals
:collect
(
typecase
arg
;; notably preserve constant keyword arguments
((
or
symbol
number
character
simple-string
pathname
)
arg
)))
nil
)))))
:args
(
destructuring-bind
(
fun
&rest
more
)
args
(
cons
(
unsymbolify-function-name
fun
)
(
nullify-non-literals
more
))))))
(
defun
unreify-deferred-warning
(
reified-deferred-warning
)
(
destructuring-bind
(
&key
warning-type
function-name
source-note
args
)
reified-deferred-warning
...
...
@@ -257,8 +262,8 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when
:function-name
(
unreify-function-name
function-name
)
:source-note
(
unreify-source-note
source-note
)
:warning-type
warning-type
:args
(
destructuring-bind
(
fun
.
f
or
mals
)
args
(
cons
(
symbolify-function-name
fun
)
f
or
mals
))))))
:args
(
destructuring-bind
(
fun
.
m
or
e
)
args
(
cons
(
symbolify-function-name
fun
)
m
or
e
))))))
#+
(
or
cmu
scl
)
(
defun
reify-undefined-warning
(
warning
)
;; Extracting undefined-warnings from the compilation-unit
...
...
upgrade.lisp
View file @
b7ad3eb2
...
...
@@ -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
"2.32.2
5
"
)
(
asdf-version
"2.32.2
6
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
b7ad3eb2
"2.32.2
5
"
"2.32.2
6
"
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