From 5e6e13ebf2e39492572b3c28ba6cd02460ed3446 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 25 Jun 2005 01:23:27 +0000 Subject: [PATCH] And also labels.4 --- ansi-tests/labels.lsp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/ansi-tests/labels.lsp b/ansi-tests/labels.lsp index c85b4b0c..5e0dce8c 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)) -- GitLab