From 109a0a68366842862997ea48d97f9f1429102c03 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 3 Aug 2008 10:44:22 +0200
Subject: Add RETURN.

---
 control-flow.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'control-flow.lisp')

diff --git a/control-flow.lisp b/control-flow.lisp
index b2c9953..a52b691 100644
--- a/control-flow.lisp
+++ b/control-flow.lisp
@@ -19,7 +19,8 @@
 (in-package #:common-lisp)
 
 (export '(identity constantly complement tagbody go block return-from
-          defconstant prog prog* macrolet flet prog1 prog2 labels))
+          return defconstant prog prog* macrolet flet prog1 prog2
+          labels))
 
 
 (defun identity (x)
@@ -82,6 +83,9 @@
                         :test 'eq))
      ,value))
 
+(defmacro return (&optional value)
+  `(return-from nil ,value))
+
 
 ;; FIXME: Should be (EVAL-WHEN (:compile-toplevel) ...).
 (unless (boundp '+go-tag-function-mapping-sym+)
-- 
cgit v1.2.3