From: <cli...@li...> - 2009-04-01 12:02:53
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/doc impbody.xml,1.557,1.558 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Tue, 31 Mar 2009 15:11:48 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/doc impbody.xml,1.557,1.558 To: cli...@li... Message-ID: <E1L...@dd...> Update of /cvsroot/clisp/clisp/doc In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv30935 Modified Files: impbody.xml Log Message: semantic-constraints: fix adder-c Index: impbody.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impbody.xml,v retrieving revision 1.557 retrieving revision 1.558 diff -u -d -r1.557 -r1.558 --- impbody.xml 25 Mar 2009 15:22:08 -0000 1.557 +++ impbody.xml 31 Mar 2009 15:11:45 -0000 1.558 @@ -423,7 +423,7 @@ <para>The code compiled to &bytecode;s with optimization levels <programlisting language="lisp"> (&or-m; (≥ 0 &space-dec;) (≤ 1 &speed-dec;))</programlisting> - (by &compile; &compile-file-my;, or &compile-decl;) will be + (by &compile;, &compile-file-my;, or &compile-decl;) will be <emphasis>just-in-time</emphasis> (i.e., on the first execution) compiled to native code using &lightning;. </para> @@ -463,13 +463,13 @@ can produce quite unexpected results, e.g., observable differences between <emphasis>compiled</emphasis> and <emphasis>interpreted</emphasis> programs:<programlisting language="lisp"> -(defun adder-c (value) (declare (&compile-decl;)) (lambda (x) (+ x value))) +(defun adder-c (value) (declare &compile-decl;) (lambda (x) (+ x value))) <computeroutput>ADDER-C</computeroutput><lineannotation>compiled function; &value-r; is lexical</lineannotation> (defun adder-i (value) (lambda (x) (+ x value))) <computeroutput>ADDER-I</computeroutput><lineannotation>interpreted function; &value-r; is lexical</lineannotation> -(setq add-c-10 (adder-c 10)) +(defparameter add-c-10 (adder-c 10)) <computeroutput>ADD-C-10</computeroutput><lineannotation>compiled function</lineannotation> -(setq add-i-10 (adder-i 10)) +(defparameter add-i-10 (adder-i 10)) <computeroutput>ADD-I-10</computeroutput><lineannotation>interpreted function</lineannotation> (funcall add-c-10 32) <computeroutput>42</computeroutput><lineannotation>as expected</lineannotation> ------------------------------ ------------------------------------------------------------------------------ ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 36, Issue 1 **************************************** |