Thank you. This seems to be a regression from 2004. :)
Will commit fix after freeze.
In my tree:
CL-USER> (defun foo (y) (case y (t (print "matches t")) (1 (print "matches 1"))))
; in: DEFUN FOO
; (CASE Y (T (PRINT "matches t")) (1 (PRINT "matches 1")))
;
; caught ERROR:
; during macroexpansion of (CASE Y (T #) ...). Use *BREAK-ON-SIGNALS* to
; intercept:
;
; Bad CASE clause:
; (T (PRINT "matches t"))
; T allowed as the key designator only in the final otherwise-clause, not in a
; normal-clause. Use (T) instead, or move the clause the correct position.
; See also:
; The ANSI Standard, Macro CASE
Thank you. This seems to be a regression from 2004. :)
Will commit fix after freeze.
In my tree:
CL-USER> (defun foo (y) (case y (t (print "matches t")) (1 (print "matches 1"))))
; in: DEFUN FOO
; (CASE Y (T (PRINT "matches t")) (1 (PRINT "matches 1")))
;
; caught ERROR:
; during macroexpansion of (CASE Y (T #) ...). Use *BREAK-ON-SIGNALS* to
; intercept:
;
; Bad CASE clause:
; (T (PRINT "matches t"))
; T allowed as the key designator only in the final otherwise-clause, not in a
; normal-clause. Use (T) instead, or move the clause the correct position.
; See also:
; The ANSI Standard, Macro CASE