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 af8fc0a67851580edab96ae0668ec41762290105
parent ca041f7eaff5e1f4390b93a10d6f7507e0c105f2
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat,  5 Jan 2013 08:22:08 +0100

Cosmetics
Diffstat:
Mlib/map | 22+++++++++++-----------
Msrc64/main.l | 5++---
Msrc64/tags | 22+++++++++++-----------
3 files changed, 24 insertions(+), 25 deletions(-)

diff --git a/lib/map b/lib/map @@ -34,7 +34,7 @@ append (1338 . "@src64/subr.l") apply (713 . "@src64/apply.l") arg (2573 . "@src64/main.l") args (2549 . "@src64/main.l") -argv (3202 . "@src64/main.l") +argv (3201 . "@src64/main.l") as (139 . "@src64/flow.l") asoq (3020 . "@src64/subr.l") assoc (2985 . "@src64/subr.l") @@ -66,7 +66,7 @@ call (3096 . "@src64/flow.l") car (5 . "@src64/subr.l") case (1965 . "@src64/flow.l") catch (2467 . "@src64/flow.l") -cd (2954 . "@src64/main.l") +cd (2953 . "@src64/main.l") cdaaar (464 . "@src64/subr.l") cdaadr (487 . "@src64/subr.l") cdaar (179 . "@src64/subr.l") @@ -89,7 +89,7 @@ circ (816 . "@src64/subr.l") circ? (2402 . "@src64/subr.l") clip (1799 . "@src64/subr.l") close (4392 . "@src64/io.l") -cmd (3184 . "@src64/main.l") +cmd (3183 . "@src64/main.l") cnt (1413 . "@src64/apply.l") co (2548 . "@src64/flow.l") commit (1403 . "@src64/db.l") @@ -100,7 +100,7 @@ connect (224 . "@src64/net.l") cons (747 . "@src64/subr.l") copy (1225 . "@src64/subr.l") ctl (4265 . "@src64/io.l") -ctty (2979 . "@src64/main.l") +ctty (2978 . "@src64/main.l") cut (1931 . "@src64/sym.l") date (2687 . "@src64/main.l") dbck (2018 . "@src64/db.l") @@ -112,7 +112,7 @@ del (1986 . "@src64/sym.l") delete (1401 . "@src64/subr.l") delq (1452 . "@src64/subr.l") diff (2589 . "@src64/subr.l") -dir (3114 . "@src64/main.l") +dir (3113 . "@src64/main.l") dm (545 . "@src64/flow.l") do (2141 . "@src64/flow.l") e (2928 . "@src64/flow.l") @@ -129,7 +129,7 @@ extern (1032 . "@src64/sym.l") extra (1269 . "@src64/flow.l") extract (1218 . "@src64/apply.l") fifo (2097 . "@src64/sym.l") -file (3061 . "@src64/main.l") +file (3060 . "@src64/main.l") fill (3255 . "@src64/subr.l") filter (1161 . "@src64/apply.l") fin (2033 . "@src64/subr.l") @@ -167,7 +167,7 @@ ifn (1865 . "@src64/flow.l") in (4205 . "@src64/io.l") inc (2256 . "@src64/big.l") index (2637 . "@src64/subr.l") -info (3016 . "@src64/main.l") +info (3015 . "@src64/main.l") intern (1007 . "@src64/sym.l") ipid (3215 . "@src64/flow.l") isa (967 . "@src64/flow.l") @@ -240,7 +240,7 @@ onOff (1747 . "@src64/sym.l") one (1780 . "@src64/sym.l") open (4349 . "@src64/io.l") opid (3231 . "@src64/flow.l") -opt (3305 . "@src64/main.l") +opt (3304 . "@src64/main.l") or (1640 . "@src64/flow.l") out (4225 . "@src64/io.l") pack (1279 . "@src64/sym.l") @@ -273,7 +273,7 @@ push (1822 . "@src64/sym.l") push1 (1858 . "@src64/sym.l") put (2844 . "@src64/sym.l") putl (3122 . "@src64/sym.l") -pwd (2943 . "@src64/main.l") +pwd (2942 . "@src64/main.l") queue (2054 . "@src64/sym.l") quit (1285 . "@src64/main.l") quote (134 . "@src64/flow.l") @@ -340,9 +340,9 @@ up (766 . "@src64/main.l") upp? (3402 . "@src64/sym.l") uppc (3469 . "@src64/sym.l") use (1573 . "@src64/flow.l") -usec (2925 . "@src64/main.l") +usec (2924 . "@src64/main.l") val (1597 . "@src64/sym.l") -version (3319 . "@src64/main.l") +version (3318 . "@src64/main.l") wait (3164 . "@src64/io.l") when (1884 . "@src64/flow.l") while (2061 . "@src64/flow.l") diff --git a/src64/main.l b/src64/main.l @@ -1,4 +1,4 @@ -# 04jan13abu +# 05jan13abu # (c) Software Lab. Alexander Burger (code 'Code) @@ -2834,10 +2834,9 @@ if eq # Yes ld Y (Time) # Get time from last call to 'date' null Y # Any? + ldz E Nil if nz # Yes call tmTimeY_E # Extract time - else - ld E Nil end else cmp E Nil # NIL? diff --git a/src64/tags b/src64/tags @@ -517,17 +517,17 @@ sys/x86-64.linux.defs.l,1959 doDate2687,65239 tmTimeY_E2803,68850 doTime2820,69183 -doUsec2925,72177 -doPwd2943,72594 -doCd2954,72849 -doCtty2979,73465 -doInfo3016,74399 -doFile3061,75494 -doDir3114,76730 -doCmd3184,78348 -doArgv3202,78807 -doOpt3305,81353 -doVersion3319,81684 +doUsec2924,72161 +doPwd2942,72578 +doCd2953,72833 +doCtty2978,73449 +doInfo3015,74383 +doFile3060,75478 +doDir3113,76714 +doCmd3183,78332 +doArgv3201,78791 +doOpt3304,81337 +doVersion3318,81668 ./big.l,1059 zapZeroA_A6,106