[Openmcl-cvs-notifications] r14851 - /trunk/source/level-1/l1-error-system.lisp

[rme at clozure.com]

Author: rme
Date: Mon Jun 27 12:16:39 2011
New Revision: 14851

Log:
In shadowed-typecase-clause condition: add an omitted quote
to the construct slot initform.

Modified:
    trunk/source/level-1/l1-error-system.lisp

Modified: trunk/source/level-1/l1-error-system.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-error-system.lisp (original)
+++ trunk/source/level-1/l1-error-system.lisp Mon Jun 27 12:16:39 2011
@@ -86,7 +86,7 @@
 (define-condition invalid-arguments-global (style-warning) ())
 (define-condition undefined-keyword-reference (undefined-reference invalid=
-arguments) ())
 (define-condition shadowed-typecase-clause (style-warning)
-  ((construct :initarg :construct :initform typecase)
+  ((construct :initarg :construct :initform 'typecase)
    (clause :initarg :clause)
    (by :initarg :by))
   (:report (lambda (c s)