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 8039cf74d6c9b7303fd66bafcfb6e3d048a3912f
parent b9dd9d78bfa96aa2fe04a17d77ad868454a5aa48
Author: Commit-Bot <unknown>
Date:   Sun, 14 Nov 2010 09:18:05 +0000

Automatic commit from picoLisp.tgz, From: Sun, 14 Nov 2010 09:18:05 GMT
Diffstat:
Mdbg.l | 4+---
Mersatz/fun.src | 8++++----
Mersatz/picolisp.jar | 0
Mlib/lint.l | 5++++-
4 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/dbg.l b/dbg.l @@ -1,4 +1,4 @@ -# 14apr10abu +# 14nov10abu # (c) Software Lab. Alexander Burger (on *Dbg) @@ -11,6 +11,4 @@ (load "@lib/debug.l" "@lib/led.l" "@lib/edit.l" "@lib/lint.l" "@lib/sq.l") -(noLint 'later (loc "@Prg" later)) - # vi:et:ts=3:sw=3 diff --git a/ersatz/fun.src b/ersatz/fun.src @@ -1,4 +1,4 @@ -# 12nov10abu +# 14nov10abu # (c) Software Lab. Alexander Burger # Ersatz PicoLisp Functions @@ -1455,9 +1455,9 @@ for (i w x y z bnd) } else y = y.eval(); - if (z.Cdr instanceof Cell) - bnd.Data[1].Car = z.Cdr.prog(); } while ((x = x.Cdr) instanceof Cell); + if (z.Cdr instanceof Cell) + bnd.Data[1].Car = z.Cdr.prog(); } } for (i = bnd.Cnt; (i -= 2) >= 0;) @@ -1654,7 +1654,7 @@ box? (x) # (str? 'any) -> sym | NIL str? (x) - return ((x = ex.Cdr.Car.eval()) instanceof Symbol) && Intern.get(x.name()) == null? x : Nil; + return ((x = ex.Cdr.Car.eval()) instanceof Symbol) && Intern.get(x.name()) != x? x : Nil; # (ext? 'any) -> sym | NIL ext? T diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar Binary files differ. diff --git a/lib/lint.l b/lib/lint.l @@ -1,4 +1,4 @@ -# 21may10abu +# 14nov10abu # (c) Software Lab. Alexander Burger # *NoLint @@ -8,6 +8,9 @@ (push1 '*NoLint (cons X V)) (or (memq X *NoLint) (push '*NoLint X)) ) ) +(noLint 'later (loc "@Prg" later)) + + (de global? (S) (or (memq S '(NIL ^ @ @@ @@@ This T))