picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit de19d048f0f4bfbbc3d7a5eaabb4eecf35ea8e0b
parent b1d4d977dd28ce702bba40505154681e671275e8
Author: Commit-Bot <unknown>
Date:   Thu, 26 Aug 2010 12:39:22 +0000

Automatic commit from picoLisp.tgz, From: Thu, 26 Aug 2010 12:39:22 GMT
Diffstat:
Mdoc/refC.html | 5+++--
Mtest/src/flow.l | 6+++++-
2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/doc/refC.html b/doc/refC.html @@ -29,8 +29,9 @@ href="refR.html#rel">rel</a></code>. <dt><a name="cache"><code>(cache 'var 'sym . prg) -> any</code></a> <dd>Speeds up some calculations, by holding previously calculated results in an -<code><a href="refI.html#idx">idx</a></code> tree structure. <code>sym</code> -must be a transient symbol representing a unique key for the argument(s) to the +<code><a href="refI.html#idx">idx</a></code> tree structure. Such an +optimization is sometimes called "memoization". <code>sym</code> must be a +transient symbol representing a unique key for the argument(s) to the calculation. <pre><code> diff --git a/test/src/flow.l b/test/src/flow.l @@ -1,4 +1,4 @@ -# 11jun10abu +# 26aug10abu # (c) Software Lab. Alexander Burger ### quote ### @@ -242,6 +242,10 @@ (if2 NIL T 'both 'first 'second 'none) ) (test 'none (if2 NIL NIL 'both 'first 'second 'none) ) +(test 4 (if2 3 4 @)) +(test 7 (and 7 (if2 @ @ @))) +(test 7 (and 7 (if2 @ NIL 1 @))) +(test 7 (and 7 (if2 NIL @ 1 2 @))) ### ifn ###