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 71e19745e82a2f655f4ffdf1a240d1f764fe8a5a
parent 00535cc35b555152fe0014de52c932880cf7fb6e
Author: Commit-Bot <unknown>
Date:   Tue, 21 Sep 2010 18:50:43 +0000

Automatic commit from picoLisp.tgz, From: Tue, 21 Sep 2010 18:50:43 GMT
Diffstat:
MReleaseNotes | 7++++++-
Msrc/io.c | 11++++++++---
Msrc64/version.l | 4++--
3 files changed, 16 insertions(+), 6 deletions(-)

diff --git a/ReleaseNotes b/ReleaseNotes @@ -1,4 +1,4 @@ -11aug10abu +19sep10abu (c) Software Lab. Alexander Burger @@ -42,3 +42,8 @@ D. HTTP file uploads can now be achieved with Drag & Drop, using the new '+Drop' E. The license was changed from GPL to the MIT/X11 License with this release (see the file "COPYING"). + +F. The usage of the poll(2) system call in the 64-bit version was found to cause + errors. The database stress test in "misc/stress.l" occasionally indicated + inconsistencies (for unknown reasons). Therefore, the 64-bit version is now - + like the 32-bit version - based on select(2). diff --git a/src/io.c b/src/io.c @@ -1,4 +1,4 @@ -/* 14sep10abu +/* 21sep10abu * (c) Software Lab. Alexander Burger */ @@ -2237,8 +2237,13 @@ static void outSym(int c) { void outName(any s) {outSym(symByte(name(s)));} void outNum(any x) { - if (isNum(cdr(numCell(x)))) - outName(numToSym(x, 0, 0, 0)); + if (isNum(cdr(numCell(x)))) { + cell c1; + + Push(c1, numToSym(x, 0, 0, 0)); + outName(data(c1)); + drop(c1); + } else { char *p, buf[BITS/2]; diff --git a/src64/version.l b/src64/version.l @@ -1,6 +1,6 @@ -# 17sep10abu +# 21sep10abu # (c) Software Lab. Alexander Burger -(de *Version 3 0 3 22) +(de *Version 3 0 3 23) # vi:et:ts=3:sw=3