From 5b3421abce6203fd73ac298f1fbba783abaeab5f Mon Sep 17 00:00:00 2001
From: =?utf8?q?David=20V=C3=A1zquez?= <davazp@gmail.com>
Date: Sun, 23 Jun 2013 02:37:23 +0200
Subject: [PATCH] NTH-VALUE macro

---
 src/boot.lisp |    5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/boot.lisp b/src/boot.lisp
index d045186..3541b23 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -542,3 +542,8 @@
 
 (defun error (fmt &rest args)
   (%throw (apply #'format nil fmt args)))
+
+(defmacro nth-value (n form)
+  `(multiple-value-call (lambda (&rest values)
+                          (nth ,n values))
+     ,form))
-- 
1.7.10.4