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
_______________________________________________ asdf-devel mailing list asdf-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel