This must have regressed with the slew of structure changes done in the past decade. CMU CL gives a much better error:
; In: DEFUN X
; (FOO-A FOO) ; Warning: Result is a INTEGER, not a (VALUES &OPTIONAL LIST &REST T).
This must have regressed with the slew of structure changes done in the past decade. CMU CL gives a much better error:
; In: DEFUN X
; (FOO-A FOO)
; Warning: Result is a INTEGER, not a (VALUES &OPTIONAL LIST &REST T).