Re: error or warning during compilation, yet some function is generat ed

[Bruno H. <br...@cl...>]

Sam writes:

> > I don't see a good reason anymore not to give an
> >     (sys::error-of-type 'sys::source-program-error ...)
> 
> either this or just return nil, like we do now in other cases:
> 
> [1]> (defun f () (let ((:f 0)) :f))
> F
> [2]> (compile 'f)
> 
> ERROR in F :
> Constant :F cannot be bound.
> NIL ;
> 1 ;
> 1

You are confusing SYS::COMPILE-LAMBDA with COMPILE. These are
different functions, with different contracts. SYS::COMPILE-LAMBDA
*must* return a compiled function.

Bruno