From 2b5c14e67b11a0e45f683b40dfd15c78b83ea3bf Mon Sep 17 00:00:00 2001
From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Mon, 10 Jun 2013 11:21:15 +0200
Subject: [PATCH] Add LIST, SEQUENCE to TYPECASE.

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

diff --git a/src/boot.lisp b/src/boot.lisp
index 3541b23..d233b93 100644
--- 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)
-- 
1.7.10.4