[Gcl-devel] Re: GCL 2.7.0 compiler bug

[Camm Maguire]

Greetings, and thanks!  Should be fixed now.

Take care,

Matt Kaufmann <address@hidden> writes:

> Hi, Camm --
> 
> Below is an example that shows a compiler bug in GCL 2.7.0.  (I confirmed this
> using both /p/bin/xgn and /p/bin/xg here at UT CS, which I believe you can
> access.)  If you replace the expression (if flg t nil) by just flg, the bug
> goes away.
> 
> (defun test ()
>   (let ((flg t))
>     (catch 'my-tag
>       (progn (throw 'my-tag nil)
>              (setq flg nil)))
>     (if flg t nil)))
> 
> (test) ; returns t, as expected
> 
> (compile 'test)
> 
> (test) ; returns nil, NOT as expected
> 
> Thanks --
> -- Matt
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah