NTH-VALUE macro
authorDavid Vázquez <davazp@gmail.com>
Sun, 23 Jun 2013 00:37:23 +0000 (02:37 +0200)
committerDavid Vázquez <davazp@gmail.com>
Sun, 23 Jun 2013 00:37:23 +0000 (02:37 +0200)
src/boot.lisp

index d045186..3541b23 100644 (file)
 
 (defun error (fmt &rest args)
   (%throw (apply #'format nil fmt args)))
 
 (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))