931 |
'*variable-declarations-without-argument*) |
'*variable-declarations-without-argument*) |
932 |
(push declaration-name |
(push declaration-name |
933 |
*variable-declarations-without-argument*)) |
*variable-declarations-without-argument*)) |
934 |
(when arg-p |
(if (eq (car dname) 'class) |
935 |
(setq dname (append dname (list (pop form))))) |
(if (member (car form) args) |
936 |
(dolist (var form) |
(push `(declare (,@dname ,@form)) outer-decls) |
937 |
(if (member var args) |
(push `(declare (,@dname ,@form)) inner-decls)) |
938 |
(push var outers) |
(progn |
939 |
(push var inners))) |
(when arg-p |
940 |
(when outers |
(setq dname (append dname (list (pop form))))) |
941 |
(push `(declare (,@dname ,@outers)) outer-decls)) |
(dolist (var form) |
942 |
(when inners |
(if (member var args) |
943 |
(push `(declare (,@dname ,@inners)) inner-decls))))))) |
(push var outers) |
944 |
|
(push var inners))) |
945 |
|
(when outers |
946 |
|
(push `(declare (,@dname ,@outers)) outer-decls)) |
947 |
|
(when inners |
948 |
|
(push `(declare (,@dname ,@inners)) inner-decls))))))))) |
949 |
(setq body (cdr body))) |
(setq body (cdr body))) |
950 |
(values outer-decls inner-decls body))) |
(values outer-decls inner-decls body))) |
951 |
|
|