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 b6b302c5f3fb9f027b9eee3dbe4f7cc0fdb2f2e2
parent 6f1b835997cec1182378300cb65eb935869c1034
Author: Commit-Bot <unknown>
Date:   Mon, 15 Nov 2010 14:58:59 +0000

Automatic commit from picoLisp.tgz, From: Mon, 15 Nov 2010 14:58:59 GMT
Diffstat:
Mapp/main.l | 3++-
Mdoc/tut.html | 8+++-----
Mersatz/picolisp.jar | 0
Mlib/conDbgc.l | 5+++--
Mlib/form.l | 6++++--
Msrc64/version.l | 4++--
6 files changed, 14 insertions(+), 12 deletions(-)

diff --git a/app/main.l b/app/main.l @@ -1,4 +1,4 @@ -# 14jan10abu +# 15nov10abu # (c) Software Lab. Alexander Burger (allowed ("app/" "img/") @@ -50,6 +50,7 @@ (in Sock (while (rd) (sync) + (tell) (out Sock (pr (eval @)) ) ) ) (bye) ) diff --git a/doc/tut.html b/doc/tut.html @@ -343,7 +343,8 @@ and indented way. : (pp 'pretty) (de pretty (X N . @) (setq N (abs (space (or N 0)))) - (while (args) (printsp (next))) + (while (args) + (printsp (next)) ) (if (or (atom X) (>= 12 (size X))) (print X) (while (== 'quote (car X)) @@ -360,10 +361,7 @@ and indented way. (print (pop 'X)) ) (space) (print (pop 'X)) - (when - (or - (atom (car X)) - (>= 12 (size (car X))) ) + (when (or (atom (car X)) (>= 12 (size (car X)))) (space) (print (pop 'X)) ) ) ) ((memq (car Z) *PP2) diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar Binary files differ. diff --git a/lib/conDbgc.l b/lib/conDbgc.l @@ -1,4 +1,4 @@ -# 29jun07abu +# 15nov10abu # (c) Software Lab. Alexander Burger ### Concurrent DB Garbage Collector ### @@ -44,7 +44,8 @@ (wait *DbgcDly) (unless (mark S) (sync) - (unless (mark S) + (if (mark S) + (tell) (and (isa '+Entity S) (zap> S)) (zap S) (commit) diff --git a/lib/form.l b/lib/form.l @@ -1,4 +1,4 @@ -# 09aug10abu +# 15nov10abu # (c) Software Lab. Alexander Burger # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans @@ -231,7 +231,8 @@ (when *Lock (if (lock @) (=: able (off *Lock)) - (sync) ) ) + (sync) + (tell) ) ) (for This (: gui) (nond ((: id) (setq "*Chart" This)) @@ -1765,6 +1766,7 @@ (if (lock Obj) (err (text ,"Currently edited by '@2' (@1)" @ (cdr (lup *Users @)))) (sync) + (tell) (setq *Lock Obj) ) ) diff --git a/src64/version.l b/src64/version.l @@ -1,6 +1,6 @@ -# 12nov10abu +# 15nov10abu # (c) Software Lab. Alexander Burger -(de *Version 3 0 4 7) +(de *Version 3 0 4 8) # vi:et:ts=3:sw=3