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
57e4b086
Commit
57e4b086
authored
May 06, 2003
by
Kevin Rosenberg
Browse files
Add check-component-input with partial input tests
parent
0bcfca3e
Changes
2
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
57e4b086
;;; This is asdf: Another System Definition Facility. $Revision: 1.6
8
$
;;; This is asdf: Another System Definition Facility. $Revision: 1.6
9
$
;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical
...
...
@@ -89,7 +89,7 @@
(
in-package
#:asdf
)
(
defvar
*asdf-revision*
(
let*
((
v
"$Revision: 1.6
8
$"
)
(
defvar
*asdf-revision*
(
let*
((
v
"$Revision: 1.6
9
$"
)
(
colon
(
or
(
position
#\:
v
)
-1
))
(
dot
(
position
#\.
v
)))
(
and
v
colon
dot
...
...
@@ -889,6 +889,7 @@ Returns the new tree (which probably shares structure with the old one)"
depends-on
serial
in-order-to
;; list ends
&allow-other-keys
)
options
(
check-component-input
type
name
depends-on
components
)
(
let*
((
other-args
(
remove-keys
'
(
components
pathname
default-component-class
perform
explain
output-files
operation-done-p
...
...
@@ -943,6 +944,16 @@ Returns the new tree (which probably shares structure with the old one)"
(
component-inline-methods
ret
))))
ret
)))
(
defun
check-component-input
(
type
name
depends-on
components
)
"A partial test of the values of a component."
(
unless
(
listp
depends-on
)
(
error
":depends-on must be a list.~&The value for ~(~A~) ~A is ~W"
type
name
depends-on
))
(
unless
(
and
(
listp
components
)
(
listp
(
car
components
)))
(
error
":components must be NIL or a list of lists.~&The value for ~(~A~) ~A is ~W"
type
name
components
)))
(
defun
resolve-symlinks
(
path
)
#-
allegro
(
truename
path
)
...
...
debian/changelog
View file @
57e4b086
cl-asdf (1.69) unstable; urgency=low
* Add check-component-values function with partial checking of components
-- Kevin M. Rosenberg <kmr@debian.org> Tue, 6 May 2003 08:26:11 -0600
cl-asdf (1.68) unstable; urgency=low
* New upstream with 'asdf:test-op
...
...
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