Gary King wrote:
Good idea
On Aug 17, 2009, at 1:16 PM, Robert Goldman wrote:
The asdf manual seems to document two non-existent operations: feature-dependent-op and test-system-version.
Any reason not to excise them from the manual?
OK, here's a patch to squash the non-existent operations:
diff --git a/asdf.texinfo b/asdf.texinfo index cfef5c6..907f9ec 100644 --- a/asdf.texinfo +++ b/asdf.texinfo @@ -558,42 +558,42 @@ If you are creating a component type, you need to implement this operation - at least, where meaningful. @end deffn
-@deffn Operation test-system-version &key minimum - -Asks the system whether it satisfies a version requirement. - -The default method accepts a string, which is expected to contain of a -number of integers separated by #. characters. The method is not -recursive. The component satisfies the version dependency if it has -the same major number as required and each of its sub-versions is -greater than or equal to the sub-version number required. - -@lisp -(defun version-satisfies (x y) - (labels ((bigger (x y) - (cond ((not y) t) - ((not x) nil) - ((> (car x) (car y)) t) - ((= (car x) (car y)) - (bigger (cdr x) (cdr y)))))) - (and (= (car x) (car y)) - (or (not (cdr y)) (bigger (cdr x) (cdr y)))))) -@end lisp - -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 -reimplementing this one. -@end deffn - -@deffn Operation feature-dependent-op - -An instance of @code{feature-dependent-op} will ignore any components -which have a @code{features} attribute, unless the feature combination -it designates is satisfied by @code{*features*}. This operation is -not intended to be instantiated directly, but other operations may -inherit from it. - -@end deffn +@c @deffn Operation test-system-version &key minimum + +@c Asks the system whether it satisfies a version requirement. + +@c The default method accepts a string, which is expected to contain of a +@c number of integers separated by #. characters. The method is not +@c recursive. The component satisfies the version dependency if it has +@c the same major number as required and each of its sub-versions is +@c greater than or equal to the sub-version number required. + +@c @lisp +@c (defun version-satisfies (x y) +@c (labels ((bigger (x y) +@c (cond ((not y) t) +@c ((not x) nil) +@c ((> (car x) (car y)) t) +@c ((= (car x) (car y)) +@c (bigger (cdr x) (cdr y)))))) +@c (and (= (car x) (car y)) +@c (or (not (cdr y)) (bigger (cdr x) (cdr y)))))) +@c @end lisp + +@c If that doesn't work for your system, you can override it. I hope +@c you have as much fun writing the new method as @verb{|#lisp|} did +@c reimplementing this one. +@c @end deffn + +@c @deffn Operation feature-dependent-op + +@c An instance of @code{feature-dependent-op} will ignore any components +@c which have a @code{features} attribute, unless the feature combination +@c it designates is satisfied by @code{*features*}. This operation is +@c not intended to be instantiated directly, but other operations may +@c inherit from it. + +@c @end deffn
@node Creating new operations, , Predefined operations of asdf, Operations @comment node-name, next, previous, up