[asdf-devel] [PATCH] add &allow-other-keys to LOAD-SYSTEM, COMPILE-SYSTEM, TEST-SYSTEM

[Robert Goldman]

On 2/24/10 Feb 24 -5:54 AM, Tobias C. Rittweiler wrote:
> 
> Although the way to extend operations by additional initargs is somewhat
> cumbersome, it's possible. Unfortunately, the sugar forms LOAD-SYSTEM,
> COMPILE-SYSTEM, and TEST-SYSTEM do not take additional initargs.

I see that the docstrings for these functions seem to have some form of
markup in them that I do not recognize ( [operate][] ).  Can you comment
on this?

best,
r
> 
>   -T.
> 
> diff --git a/asdf.lisp b/asdf.lisp
> index 92e7f6e..3f230d5 100644
> --- a/asdf.lisp
> +++ b/asdf.lisp
> @@ -1670,18 +1670,24 @@ created with the same initargs as the original one.
>    (setf (documentation 'operate 'function)
>          operate-docstring))
>  
> -(defun load-system (system &rest args &key force (verbose t) version)
> -  "Shorthand for `(operate 'asdf:load-op system)`. See [operate][] for details."
> +(defun load-system (system &rest args &key force (verbose t) version
> +                    &allow-other-keys)
> +  "Shorthand for `(operate 'asdf:load-op system)`. See [operate][] for
> +details."
>    (declare (ignore force verbose version))
>    (apply #'operate 'load-op system args))
>  
> -(defun compile-system (system &rest args &key force (verbose t) version)
> -  "Shorthand for `(operate 'asdf:compile-op system)`. See [operate][] for details."
> +(defun compile-system (system &rest args &key force (verbose t) version
> +                       &allow-other-keys)
> +  "Shorthand for `(operate 'asdf:compile-op system)`. See [operate][]
> +for details."
>    (declare (ignore force verbose version))
>    (apply #'operate 'compile-op system args))
>  
> -(defun test-system (system &rest args &key force (verbose t) version)
> -  "Shorthand for `(operate 'asdf:test-op system)`. See [operate][] for details."
> +(defun test-system (system &rest args &key force (verbose t) version
> +                    &allow-other-keys)
> +  "Shorthand for `(operate 'asdf:test-op system)`. See [operate][] for
> +details."
>    (declare (ignore force verbose version))
>    (apply #'operate 'test-op system args))
> 
> 
> 
> _______________________________________________
> asdf-devel mailing list
> asdf-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel