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 8862b4a533da571d839c333932be111c276dbc64
parent e139f19b4819ae0d2b212c1262bf95262b670627
Author: Commit-Bot <unknown>
Date:   Fri,  3 Sep 2010 11:38:47 +0000

Automatic commit from picoLisp.tgz, From: Fri, 03 Sep 2010 11:38:47 GMT
Diffstat:
Mlib/tags | 12++++++------
Msrc64/sym.l | 6++----
2 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/lib/tags b/lib/tags @@ -136,7 +136,7 @@ fish (1497 . "@src64/apply.l") flg? (2419 . "@src64/subr.l") flip (1686 . "@src64/subr.l") flush (4916 . "@src64/io.l") -fold (3345 . "@src64/sym.l") +fold (3343 . "@src64/sym.l") for (2247 . "@src64/flow.l") fork (3269 . "@src64/flow.l") format (2089 . "@src64/big.l") @@ -186,8 +186,8 @@ lit (183 . "@src64/flow.l") load (3994 . "@src64/io.l") lock (1181 . "@src64/db.l") loop (2190 . "@src64/flow.l") -low? (3217 . "@src64/sym.l") -lowc (3247 . "@src64/sym.l") +low? (3215 . "@src64/sym.l") +lowc (3245 . "@src64/sym.l") lst? (2389 . "@src64/subr.l") lt0 (2680 . "@src64/big.l") lup (2226 . "@src64/sym.l") @@ -206,7 +206,7 @@ max (2314 . "@src64/subr.l") maxi (1395 . "@src64/apply.l") member (2429 . "@src64/subr.l") memq (2451 . "@src64/subr.l") -meta (3137 . "@src64/sym.l") +meta (3135 . "@src64/sym.l") meth (1106 . "@src64/flow.l") method (1070 . "@src64/flow.l") min (2343 . "@src64/subr.l") @@ -330,8 +330,8 @@ unify (3842 . "@src64/subr.l") unless (1920 . "@src64/flow.l") until (2104 . "@src64/flow.l") up (712 . "@src64/main.l") -upp? (3232 . "@src64/sym.l") -uppc (3296 . "@src64/sym.l") +upp? (3230 . "@src64/sym.l") +uppc (3294 . "@src64/sym.l") use (1592 . "@src64/flow.l") usec (2596 . "@src64/main.l") val (1463 . "@src64/sym.l") diff --git a/src64/sym.l b/src64/sym.l @@ -1,4 +1,4 @@ -# 10jun10abu +# 03sep10abu # (c) Software Lab. Alexander Burger ### Compare long names ### @@ -3123,9 +3123,7 @@ if nc # No shl A 1 # Loaded? if c # Yes - clrc # Set "not loaded" - rcr A 1 - rcr A 1 + ror A 2 # Set "not loaded" ld (E) Nil # Clear value or A SYM # Set 'extern' tag ld (E TAIL) A