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