1.0.11.6: canonicalize whitespaces only on updated files

[sbcl.git] / src / code / macros.lisp

diff --git a/src/code/macros.lisp b/src/code/macros.lisp
index bd9714b..3da5529 100644 (file)
--- a/src/code/macros.lisp
+++ b/src/code/macros.lisp
@@ -176,7 +176,7 @@ invoked. In that case it will store into PLACE and start over."
    (case-kind :initarg :case-kind
               :reader case-warning-case-kind)
    (occurrences :initarg :occurrences
-                :type (cons (integer 0) (cons t null))
+                :type list
                 :reader duplicate-case-key-warning-occurrences))
   (:report
     (lambda (condition stream)