Zbyszek Jurkiewicz <[EMAIL PROTECTED]> writes: > > > (defun square-df (x) > > > (declare (double-float x)) > > > (prog ((var 0.0d0)) > > > (setq var (* x x)) > > > var)) > As far as I remember, PROG returned with value only when you use RETURN. > Try to check if this is true with ANSI CL --- maybe I'm wrong.
You're right. CLHS says: "results---nil if a normal return occurs, or else, if an explicit return occurs, the values that were transferred." Furthermore, the VAR symbol at the end of PROG gets parsed as a go tag, not as a reference to a variable. It looks like LET would be more appropriate.
