Improved handling of quoted symbols in CASE.

(case val ('a (b)))      ; now produces an error, just like:
(case val (('a 'b) (c))) ; did before.

Thanks to: Daniel Gackle <danielgackle@gmail.com>

diff --git a/src/special-forms.lisp b/src/special-forms.lisp
index 155ce51..49f0650 100644 (file)
--- a/src/special-forms.lisp
+++ b/src/special-forms.lisp
@@ -186,7 +186,7 @@
 
 (defpsmacro case (value &rest clauses)
   (labels ((make-clause (val body more)
-             (cond ((listp val)
+             (cond ((and (listp val) (not (eq (car val) 'quote)))
                     (append (mapcar #'list (butlast val))
                             (make-clause (first (last val)) body more)))
                    ((member val '(t otherwise))