X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fboot.lisp;h=3541b23a863e800e602dc220d4542eb2eba185b3;hb=fbb8a269e0af1f0ea29cee2b0bc910c91595ddc0;hp=d045186da35494af14b44c6f7be082b32419649b;hpb=c296885ca974898925b89af066b1b14a6fca0f57;p=jscl.git

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))