Changeset 14851 for trunk/source/level-1


Ignore:
Timestamp:
Jun 27, 2011, 5:16:39 PM (8 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-error-system.lisp

    r14850 r14851  
    8787(define-condition undefined-keyword-reference (undefined-reference invalid-arguments) ())
    8888(define-condition shadowed-typecase-clause (style-warning)
    89   ((construct :initarg :construct :initform typecase)
     89  ((construct :initarg :construct :initform 'typecase)
    9090   (clause :initarg :clause)
    9191   (by :initarg :by))
Note: See TracChangeset for help on using the changeset viewer.