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 cc29c81d6f7e0a279f5925b477cd7397e4eaa33e
parent 11d84f5ff8ae11db3f4aebe39986da0c2bcf2c16
Author: Commit-Bot <unknown>
Date:   Mon, 21 Jun 2010 08:50:13 +0000

Automatic commit from picoLisp.tgz, From: Mon, 21 Jun 2010 08:50:13 GMT
Diffstat:
Mdoc/app.html | 4++--
Mlib/http.l | 15++++++++-------
Msrc64/version.l | 4++--
3 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/doc/app.html b/doc/app.html @@ -560,7 +560,7 @@ two-dimensional tables with the <code>&lt;table&gt;</code> and ######################################################################## (html 0 "Table" "lib.css" NIL (&lt;table&gt; NIL NIL NIL - (for (N 1 (&gt;= 10 N) (inc N)) # A table with 10 rows + (for N 10 # A table with 10 rows (&lt;row&gt; NIL N (prin (* N N))) ) ) ) # and 2 columns ######################################################################## </code></pre> @@ -590,7 +590,7 @@ columns, and print each row in an alternating red and blue color '((width . "200px") (style . "border: dotted 1px;")) # table style "Square Numbers" # caption '((align "Number") (align "Square")) # 2 headers - (for (N 1 (&gt;= 10 N) (inc N)) # 10 rows + (for N 10 # 10 rows (&lt;row&gt; (xchg '(red) '(blue)) # red or blue N # 2 columns (prin (* N N) ) ) ) ) ) diff --git a/lib/http.l b/lib/http.l @@ -1,4 +1,4 @@ -# 30may10abu +# 21jun10abu # (c) Software Lab. Alexander Burger # *Home *Gate *Host *Port *Port1 *Http1 *Chunked @@ -382,12 +382,13 @@ (and *Tmp (pre? *Tmp File) (one Upd)) (ifn (info File) (http404) - (http1 (or Typ (mimetype File)) Upd (stem (chop File) "/") Att) - (prinl "Content-Length: " (car @) "^M") - (prin "Last-Modified: ") - (httpDate (cadr @) (cddr @)) - (prinl "^M") - (in File (echo)) ) ) + (let I @ + (http1 (or Typ (mimetype File)) Upd (stem (chop File) "/") Att) + (prinl "Content-Length: " (car I) "^M") + (prin "Last-Modified: ") + (httpDate (cadr I) (cddr I)) + (prinl "^M") + (in File (echo)) ) ) ) (de srcUrl (Url) (if (or (pre? "http:" Url) (pre? "https:" Url)) diff --git a/src64/version.l b/src64/version.l @@ -1,6 +1,6 @@ -# 19jun10abu +# 21jun10abu # (c) Software Lab. Alexander Burger -(de *Version 3 0 2 32) +(de *Version 3 0 2 33) # vi:et:ts=3:sw=3