# HG changeset patch
# Parent 03d53e210c7d22a5cd3ad34b7c2b151f19b870c1
Enable RESTAS to work with abcl-1.1.0-dev.

This patch fixes the problem noted in
http://trac.common-lisp.net/armedbear/ticket/199, namely that one
currently cannot use &AUX specifiers for DEFMETHOD.


diff -r 03d53e210c7d -r 0681fb910eb9 src/module.lisp
--- a/src/module.lisp	Mon Feb 27 12:09:34 2012 +0100
+++ b/src/module.lisp	Wed Feb 29 11:23:14 2012 +0100
@@ -69,13 +69,13 @@
         (submodule-toplevel parent)
         submodule)))
 
-(defmethod submodule-routes ((submodule submodule)
-                             &aux (decorators (submodule-decorators submodule)))
-  (mapcar (lambda (route)
-            (apply-decorators route decorators))
-          (module-routes (submodule-module submodule) submodule)))
+(defmethod submodule-routes ((submodule submodule))
+  (let* ((decorators (submodule-decorators submodule)))
+    (mapcar (lambda (route)
+              (apply-decorators route decorators))
+            (module-routes (submodule-module submodule) submodule))))
 
-(defun connect-submodule (submodule mapper)
+(Defun connect-submodule (submodule mapper)
   (iter (for route in (submodule-routes submodule))
         (routes:connect mapper route)))