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
asdf
asdf
Commits
214a2f29
Commit
214a2f29
authored
Jan 23, 2007
by
Gary King
Browse files
add a better docstring for component-depends-on (via #lisp and Robert Goldman)
parent
58097df5
Changes
1
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
214a2f29
;;; This is asdf: Another System Definition Facility. $Revision: 1.10
3
$
;;; This is asdf: Another System Definition Facility. $Revision: 1.10
4
$
;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical
...
...
@@ -112,7 +112,7 @@
(
in-package
#:asdf
)
(
defvar
*asdf-revision*
(
let*
((
v
"$Revision: 1.10
3
$"
)
(
defvar
*asdf-revision*
(
let*
((
v
"$Revision: 1.10
4
$"
)
(
colon
(
or
(
position
#\:
v
)
-1
))
(
dot
(
position
#\.
v
)))
(
and
v
colon
dot
...
...
@@ -557,7 +557,25 @@ system."))
(
member
node
(
operation-visiting-nodes
(
operation-ancestor
o
))
:test
'equal
)))
(
defgeneric
component-depends-on
(
operation
component
))
(
defgeneric
component-depends-on
(
operation
component
)
(
:documentation
"Returns a list of dependencies needed by the component to perform
the operation. A dependency has one of the following forms:
(<operation> <component>*), where <operation> is a class
designator and each <component> is a component
designator, which means that the component depends on
<operation> having been performed on each <component>; or
(FEATURE <feature>), which means that the component depends
on <feature>'s presence in *FEATURES*.
Methods specialized on subclasses of existing component types
should usually append the results of CALL-NEXT-METHOD to the
list."
))
(
defmethod
component-depends-on
((
op-spec
symbol
)
(
c
component
))
(
component-depends-on
(
make-instance
op-spec
)
c
))
(
defmethod
component-depends-on
((
o
operation
)
(
c
component
))
(
cdr
(
assoc
(
class-name
(
class-of
o
))
...
...
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