Add LIST, SEQUENCE to TYPECASE.

[jscl.git] / src / boot.lisp

diff --git a/src/boot.lisp b/src/boot.lisp
index d045186..d233b93 100644 (file)
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -501,6 +501,8 @@
                          `((,(ecase (car c)
                                     (integer 'integerp)
                                     (cons 'consp)
+                                    (list 'listp)
+                                    (sequence 'sequencep)
                                     (symbol 'symbolp)
                                     (function 'functionp)
                                     (float 'floatp)
@@ -542,3 +544,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))