diff --git a/ansi-tests/labels.lsp b/ansi-tests/labels.lsp index 97853cb457b1b62aa36ab71cd221be6a0d5284d2..850b50004d6067fd4bce85d447fd538ca0d98c6e 100644 --- a/ansi-tests/labels.lsp +++ b/ansi-tests/labels.lsp @@ -50,6 +50,14 @@ (%f 0 10)) 55) +;;; Scope of defined function names includes &AUX parameters + +(deftest labels.7b + (labels ((%f (x &aux (b (%g x))) b) + (%g (y) (+ y y))) + (%f 10)) + 20) + ;;; Keyword arguments (deftest labels.8 (labels ((%f (&key a (b 0 b-p)) (values a b (not (not b-p))))) @@ -114,14 +122,6 @@ z)) (a 2)) -;;; Scope of defined function names includes &AUX parameters - -(deftest labels.7b - (labels ((%f (x &aux (b (%g x))) b) - (%g (y) (+ y y))) - (%f 10)) - 20) - ;;; Body is an implicit progn (deftest labels.18 (labels ((%f (x) (incf x) (+ x x)))