diff --git a/ansi-tests/labels.lsp b/ansi-tests/labels.lsp index c85b4b0c88b1f17bd87888b53033e9fc3aacfa32..5e0dce8c2408b4e639c1ea93aae668c2a48ea429 100644 --- a/ansi-tests/labels.lsp +++ b/ansi-tests/labels.lsp @@ -24,10 +24,11 @@ ;;; the local function declaration (deftest labels.4 (block %f - (labels ((%f (&optional (x (return-from %f 10))) - 20)) - (%f))) - 10) + (labels ((%f (&optional (x (return-from %f :good))) + nil)) + (%f) + :bad)) + :good) (deftest labels.5 (labels ((%f () (return-from %f 15) 35))