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 70e013060a2bf2955a5746158b713a85cdb10b64
parent 47df749836353ff5ab0487c39e0ae0b75b9bb04f
Author: Commit-Bot <unknown>
Date:   Tue, 31 Aug 2010 08:49:30 +0000

Automatic commit from picoLisp.tgz, From: Tue, 31 Aug 2010 08:49:30 GMT
Diffstat:
Mmisc/stress.l | 8+++-----
Msrc64/io.l | 6+++---
Msrc64/version.l | 4++--
3 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/misc/stress.l b/misc/stress.l @@ -1,4 +1,4 @@ -# 22mar10abu +# 30aug10abu # (c) Software Lab. Alexander Burger # Use: nice ./p misc/stress.l -main -go -bye; rm db/test jnl db/test2 @@ -17,8 +17,7 @@ (let K (rnd) (with (db 'key '+A K) (unless (= K (: key)) - (print '!) - (flush) ) ) ) ) + (quit "key mismatch" K) ) ) ) ) (dbSync) (let (D (rnd) X (db 'key '+A (rnd))) (inc *DB (- D (get X 'dat))) @@ -33,8 +32,7 @@ (unless (= (car K) (get V 'dat)) (quit "dat mismatch" K) ) (inc 'N (car K)) ) ) - (or - (= N (val *DB)) + (unless (= N (val *DB)) (quit "val mismatch" (- N (val *DB))) ) ) ) (de main () diff --git a/src64/io.l b/src64/io.l @@ -1,4 +1,4 @@ -# 30aug10abu +# 31aug10abu # (c) Software Lab. Alexander Burger # Close file descriptor @@ -377,7 +377,7 @@ add E 2 # Point to new data movn (E) (X) C # Copy data add C 2 # Total new size - add (Y IV) # Add to buffer count + add (Y IV) C # Add to buffer count ret (code 'flushA_F 0) @@ -2875,8 +2875,8 @@ call allocAE_A # Shrink buffer ld (Y V) A # Store end + ld (Y III) 0 # Clear buffer offset end - ld (Y III) 0 # Clear buffer offset else call clsChildY # Close child end diff --git a/src64/version.l b/src64/version.l @@ -1,6 +1,6 @@ -# 28aug10abu +# 31aug10abu # (c) Software Lab. Alexander Burger -(de *Version 3 0 3 16) +(de *Version 3 0 3 17) # vi:et:ts=3:sw=3