Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Didier Verna
asdf
Commits
9d5f5148
Commit
9d5f5148
authored
Jan 21, 2013
by
Francois-Rene Rideau
Browse files
2.26.138: remove duplicate definition of TRAVERSE.
Some doc & test frobbing.
parent
2c31e053
Changes
8
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
9d5f5148
...
...
@@ -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.13
7
"
;; to be automatically updated by make bump-version
:version
"2.26.13
8
"
;; to be automatically updated by make bump-version
:depends-on
()
:components
((
:module
"build"
:components
((
:file
"asdf"
))))
:in-order-to
(
#+
asdf2.27
(
compile-op
(
monolithic-load-concatenated-source-op
asdf/defsystem
))))
...
...
doc/asdf.texinfo
View file @
9d5f5148
...
...
@@ -262,15 +262,18 @@ or none at all:
@lisp
(when (find-package :asdf)
(or (symbol-value (or (find-symbol (string :*asdf-version*) :asdf)
(find-symbol (string :*asdf-revision*) :asdf)))
:antique))
(let ((ver (symbol-value (or (find-symbol (string :*asdf-version*) :asdf)
(find-symbol (string :*asdf-revision*) :asdf)))))
(etypecase ver
(string ver)
(cons (format nil "~
{
~D~
^
.~
}
" ver))
(null "1.0"))))
@end lisp
If it returns a version number as a string, that's the version of ASDF installed.
If it returns a version number as a list, that's an old CVS version from before 1.365.
If it returns the keyword @code
{
:ANTIQUE
}
, it's so old that's not funny.
If it returns @code
{
NIL
}
then ASDF is not installed.
Otherwise it should return a string.
If it returns @code
{
"1.0"
}
, then it can actually be
any version before 1.77 or so, or some buggy variant of 1.x.
If you are experiencing problems with ASDF,
please try upgrading to the latest released version,
...
...
header.lisp
View file @
9d5f5148
;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*-
;;; This is ASDF 2.26.13
7
: Another System Definition Facility.
;;; This is ASDF 2.26.13
8
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
plan.lisp
View file @
9d5f5148
...
...
@@ -363,10 +363,10 @@ the action of OPERATION on COMPONENT in the PLAN"))
The plan returned is a list of dotted-pairs. Each pair is the CONS
of ASDF operation object and a COMPONENT object. The pairs will be
processed in order by OPERATE."
))
(
define-convenience-action-methods
traverse
(
operation
component
&key
))
(
defgeneric*
perform-plan
(
plan
&key
))
(
defgeneric*
plan-operates-on-p
(
plan
component
))
(
defgeneric*
(
traverse
)
(
operation
component
&key
&allow-other-keys
))
(
define-convenience-action-methods
traverse
(
operation
component
&key
))
(
defparameter
*default-plan-class*
'sequential-plan
)
...
...
test/script-support.lisp
View file @
9d5f5148
...
...
@@ -356,9 +356,13 @@ is bound, write a message and exit on an error. If
(
defun
get-asdf-version
()
(
when
(
find-package
:asdf
)
(
or
(
symbol-value
(
or
(
find-symbol
(
string
:*asdf-version*
)
:asdf
)
(
find-symbol
(
string
:*asdf-revision*
)
:asdf
)))
(
string
:1.x
))))
(
let
((
ver
(
symbol-value
(
or
(
find-symbol
(
string
:*asdf-version*
)
:asdf
)
(
find-symbol
(
string
:*asdf-revision*
)
:asdf
)))))
(
typecase
ver
(
string
ver
)
(
cons
(
format
nil
"~{~D~^.~}"
ver
))
(
null
"1.0"
)))))
(
defun
test-upgrade
(
old-method
new-method
tag
)
;; called by run-test
(
with-test
()
...
...
test/test-run-program.script
View file @
9d5f5148
...
...
@@ -16,6 +16,8 @@
;; NB2: we do NOT support stderr capture to *verbose-out* anymore in run-shell-command.
;; If you want 2>&1 redirection, you know where to find it.
(assert-equal '("ok 1") (run-program "echo ok 1" :output :lines))
(assert-equal '("ok 1") (run-program '("echo" "ok 1") :output :lines))
(assert-equal "ok 1" (run-program '("echo" "ok 1") :output :line))
(assert-equal '(:ok 1) (run-program '("echo" ":ok 1") :output :forms))
(assert-equal (format nil "ok 1~%") (run-program '("echo" "ok 1") :output :string))
t)
upgrade.lisp
View file @
9d5f5148
...
...
@@ -35,7 +35,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.13
7
"
)
(
asdf-version
"2.26.13
8
"
)
(
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 @
9d5f5148
"2.26.13
7
"
"2.26.13
8
"
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