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.

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

Reply via email to