Commit 7d2fa145 authored by Robert P. Goldman's avatar Robert P. Goldman Committed by Gary King
Browse files

Commented out nonexistent operations.

The original manual documented predefined operations test-system-version
and feature-dependent-op.  These operation classes do not appear in the
current version of asdf.lisp, so I have excised them from the manual.
parent 52ad832f
...@@ -682,42 +682,42 @@ the user in a way that is compatible with all of the various test ...@@ -682,42 +682,42 @@ the user in a way that is compatible with all of the various test
libraries and test techniques in use in the community. libraries and test techniques in use in the community.
@end deffn @end deffn
@deffn Operation test-system-version &key minimum @c @deffn Operation test-system-version &key minimum
Asks the system whether it satisfies a version requirement. @c Asks the system whether it satisfies a version requirement.
The default method accepts a string, which is expected to contain of a @c The default method accepts a string, which is expected to contain of a
number of integers separated by #\. characters. The method is not @c number of integers separated by #\. characters. The method is not
recursive. The component satisfies the version dependency if it has @c recursive. The component satisfies the version dependency if it has
the same major number as required and each of its sub-versions is @c the same major number as required and each of its sub-versions is
greater than or equal to the sub-version number required. @c greater than or equal to the sub-version number required.
@lisp @c @lisp
(defun version-satisfies (x y) @c (defun version-satisfies (x y)
(labels ((bigger (x y) @c (labels ((bigger (x y)
(cond ((not y) t) @c (cond ((not y) t)
((not x) nil) @c ((not x) nil)
((> (car x) (car y)) t) @c ((> (car x) (car y)) t)
((= (car x) (car y)) @c ((= (car x) (car y))
(bigger (cdr x) (cdr y)))))) @c (bigger (cdr x) (cdr y))))))
(and (= (car x) (car y)) @c (and (= (car x) (car y))
(or (not (cdr y)) (bigger (cdr x) (cdr y)))))) @c (or (not (cdr y)) (bigger (cdr x) (cdr y))))))
@end lisp @c @end lisp
If that doesn't work for your system, you can override it. I hope @c If that doesn't work for your system, you can override it. I hope
you have as much fun writing the new method as @verb{|#lisp|} did @c you have as much fun writing the new method as @verb{|#lisp|} did
reimplementing this one. @c reimplementing this one.
@end deffn @c @end deffn
@deffn Operation feature-dependent-op @c @deffn Operation feature-dependent-op
An instance of @code{feature-dependent-op} will ignore any components @c An instance of @code{feature-dependent-op} will ignore any components
which have a @code{features} attribute, unless the feature combination @c which have a @code{features} attribute, unless the feature combination
it designates is satisfied by @code{*features*}. This operation is @c it designates is satisfied by @code{*features*}. This operation is
not intended to be instantiated directly, but other operations may @c not intended to be instantiated directly, but other operations may
inherit from it. @c inherit from it.
@end deffn @c @end deffn
@node Creating new operations, , Predefined operations of asdf, Operations @node Creating new operations, , Predefined operations of asdf, Operations
@comment node-name, next, previous, up @comment node-name, next, previous, up
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment