[Ecls-list] (THE (VALUES...) ...) failed to compile

[Goffioul Michael]

> (defun f1 (x) (the (values t) (identity x)))
F1
> (compile 'f1)
;;; Loading #P"D:/Sources/ecls-cvs/msvc/cmp.fas"
;;; Loading #P"D:/Sources/ecls-cvs/msvc/sysfun.lsp"
VALUES type found in a place where it is not allowed.
Broken at COMPILE.

Michael.