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 cf1801e0d6da2623d89916287dbd9b8e2123e060
parent 4de118e9a6a8cd66a5269d23e6573e60121dc3bf
Author: Commit-Bot <unknown>
Date:   Sun, 15 Aug 2010 15:20:26 +0000

Automatic commit from picoLisp.tgz, From: Sun, 15 Aug 2010 15:20:26 GMT
Diffstat:
Mlib/tags | 36++++++++++++++++++------------------
Msrc64/main.l | 3++-
2 files changed, 20 insertions(+), 19 deletions(-)

diff --git a/lib/tags b/lib/tags @@ -32,9 +32,9 @@ and (1643 . "@src64/flow.l") any (3792 . "@src64/io.l") append (1329 . "@src64/subr.l") apply (597 . "@src64/apply.l") -arg (2242 . "@src64/main.l") -args (2218 . "@src64/main.l") -argv (2863 . "@src64/main.l") +arg (2243 . "@src64/main.l") +args (2219 . "@src64/main.l") +argv (2864 . "@src64/main.l") as (146 . "@src64/flow.l") asoq (2942 . "@src64/subr.l") assoc (2907 . "@src64/subr.l") @@ -65,7 +65,7 @@ call (3102 . "@src64/flow.l") car (5 . "@src64/subr.l") case (1984 . "@src64/flow.l") catch (2484 . "@src64/flow.l") -cd (2618 . "@src64/main.l") +cd (2619 . "@src64/main.l") cdaaar (464 . "@src64/subr.l") cdaadr (487 . "@src64/subr.l") cdaar (179 . "@src64/subr.l") @@ -87,7 +87,7 @@ chop (1093 . "@src64/sym.l") circ (816 . "@src64/subr.l") clip (1786 . "@src64/subr.l") close (4180 . "@src64/io.l") -cmd (2845 . "@src64/main.l") +cmd (2846 . "@src64/main.l") cnt (1297 . "@src64/apply.l") co (2566 . "@src64/flow.l") commit (1503 . "@src64/db.l") @@ -98,9 +98,9 @@ connect (201 . "@src64/net.l") cons (747 . "@src64/subr.l") copy (1216 . "@src64/subr.l") ctl (4120 . "@src64/io.l") -ctty (2643 . "@src64/main.l") +ctty (2644 . "@src64/main.l") cut (1797 . "@src64/sym.l") -date (2357 . "@src64/main.l") +date (2358 . "@src64/main.l") dbck (2092 . "@src64/db.l") de (549 . "@src64/flow.l") dec (2323 . "@src64/big.l") @@ -110,7 +110,7 @@ del (1852 . "@src64/sym.l") delete (1392 . "@src64/subr.l") delq (1443 . "@src64/subr.l") diff (2563 . "@src64/subr.l") -dir (2776 . "@src64/main.l") +dir (2777 . "@src64/main.l") dm (561 . "@src64/flow.l") do (2158 . "@src64/flow.l") e (2932 . "@src64/flow.l") @@ -126,7 +126,7 @@ extern (900 . "@src64/sym.l") extra (1284 . "@src64/flow.l") extract (1102 . "@src64/apply.l") fifo (1963 . "@src64/sym.l") -file (2723 . "@src64/main.l") +file (2724 . "@src64/main.l") fill (3177 . "@src64/subr.l") filter (1045 . "@src64/apply.l") fin (2020 . "@src64/subr.l") @@ -163,7 +163,7 @@ ifn (1884 . "@src64/flow.l") in (4016 . "@src64/io.l") inc (2256 . "@src64/big.l") index (2611 . "@src64/subr.l") -info (2680 . "@src64/main.l") +info (2681 . "@src64/main.l") intern (875 . "@src64/sym.l") ipid (3214 . "@src64/flow.l") isa (978 . "@src64/flow.l") @@ -179,7 +179,7 @@ lieu (1163 . "@src64/db.l") line (3526 . "@src64/io.l") lines (3679 . "@src64/io.l") link (1163 . "@src64/subr.l") -lisp (1920 . "@src64/main.l") +lisp (1921 . "@src64/main.l") list (887 . "@src64/subr.l") listen (151 . "@src64/net.l") lit (183 . "@src64/flow.l") @@ -221,7 +221,7 @@ nand (1678 . "@src64/flow.l") native (1366 . "@src64/main.l") need (918 . "@src64/subr.l") new (852 . "@src64/flow.l") -next (2225 . "@src64/main.l") +next (2226 . "@src64/main.l") nil (1761 . "@src64/flow.l") nond (1961 . "@src64/flow.l") nor (1699 . "@src64/flow.l") @@ -235,7 +235,7 @@ onOff (1613 . "@src64/sym.l") one (1646 . "@src64/sym.l") open (4142 . "@src64/io.l") opid (3230 . "@src64/flow.l") -opt (2966 . "@src64/main.l") +opt (2967 . "@src64/main.l") or (1659 . "@src64/flow.l") out (4036 . "@src64/io.l") pack (1144 . "@src64/sym.l") @@ -268,7 +268,7 @@ push (1688 . "@src64/sym.l") push1 (1724 . "@src64/sym.l") put (2698 . "@src64/sym.l") putl (2950 . "@src64/sym.l") -pwd (2607 . "@src64/main.l") +pwd (2608 . "@src64/main.l") queue (1920 . "@src64/sym.l") quit (1075 . "@src64/main.l") quote (141 . "@src64/flow.l") @@ -279,7 +279,7 @@ raw (465 . "@src64/main.l") rd (4957 . "@src64/io.l") read (2530 . "@src64/io.l") replace (1490 . "@src64/subr.l") -rest (2271 . "@src64/main.l") +rest (2272 . "@src64/main.l") reverse (1665 . "@src64/subr.l") rewind (4923 . "@src64/io.l") rollback (1885 . "@src64/db.l") @@ -320,7 +320,7 @@ text (1272 . "@src64/sym.l") throw (2510 . "@src64/flow.l") tick (3182 . "@src64/flow.l") till (3437 . "@src64/io.l") -time (2490 . "@src64/main.l") +time (2491 . "@src64/main.l") touch (1049 . "@src64/sym.l") trim (1746 . "@src64/subr.l") try (1191 . "@src64/flow.l") @@ -333,9 +333,9 @@ up (712 . "@src64/main.l") upp? (3232 . "@src64/sym.l") uppc (3296 . "@src64/sym.l") use (1592 . "@src64/flow.l") -usec (2595 . "@src64/main.l") +usec (2596 . "@src64/main.l") val (1463 . "@src64/sym.l") -version (2980 . "@src64/main.l") +version (2981 . "@src64/main.l") wait (3016 . "@src64/io.l") when (1903 . "@src64/flow.l") while (2080 . "@src64/flow.l") diff --git a/src64/main.l b/src64/main.l @@ -1,4 +1,4 @@ -# 05aug10abu +# 15aug10abu # (c) Software Lab. Alexander Burger ### Global return labels ### @@ -1557,6 +1557,7 @@ do cmp Y L # Args? while ne # Yes + add S I # Drop type pop X # Next C arg ld E (Y) # Next Lisp arg num E # Number?