Re: [PATCH] Fix typo in jvm.lisp

On Tue, 15 Jan 2008 at 00:11:22 +0100, Erik Huelsmann wrote:
> Hi,
>
> Browsing through jvm.lisp, I found the following typo:
>
> Index: jvm.lisp
> ===================================================================
> RCS file: /cvsroot/armedbear-j/j/j/src/org/armedbear/lisp/jvm.lisp,v
> retrieving revision 1.781
> diff -u -r1.781 jvm.lisp
> --- jvm.lisp	31 May 2007 19:10:47 -0000	1.781
> +++ jvm.lisp	14 Jan 2008 23:07:37 -0000
>  <at>  <at>  -1436,8 +1436,8  <at>  <at> 
>  (defun emit-push-nil ()
>    (emit 'getstatic +lisp-class+ "NIL" +lisp-object+))
>
> -(defknown emit-push-nil () t)
> -(declaim (inline emit-push-nil))
> +(defknown emit-push-t () t)
> +(declaim (inline emit-push-t))
>  (defun emit-push-t ()
>    (emit 'getstatic +lisp-class+ "T" +lisp-symbol+))

Committed. Thanks!

-Peter

-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace