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 5399605ecb1f06940be01cee2ab50d7655d1849b
parent ce8ffcd527d204d23fecef35736eaa06b38d9c52
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 27 Oct 2011 17:51:48 +0200

Minor simplifications
Diffstat:
Mdoc/refE.html | 19+++++++++----------
Mdoc/refR.html | 19+++++++++----------
2 files changed, 18 insertions(+), 20 deletions(-)

diff --git a/doc/refE.html b/doc/refE.html @@ -46,16 +46,15 @@ href="ref.html#external">external symbols</a></code>. : (setq *Ext # Define extension functions (mapcar '((@Host @Ext) - (let Sock NIL - (cons @Ext - (curry (@Host @Ext Sock) (Obj) - (when (or Sock (setq Sock (connect @Host 4040))) - (ext @Ext - (out Sock (pr (cons 'qsym Obj))) - (prog1 (in Sock (rd)) - (unless @ - (close Sock) - (off Sock) ) ) ) ) ) ) ) ) + (cons @Ext + (curry (@Host @Ext (Sock)) (Obj) + (when (or Sock (setq Sock (connect @Host 4040))) + (ext @Ext + (out Sock (pr (cons 'qsym Obj))) + (prog1 (in Sock (rd)) + (unless @ + (close Sock) + (off Sock) ) ) ) ) ) ) ) '("10.10.12.1" "10.10.12.2" "10.10.12.3" "10.10.12.4") (20 40 60 80) ) ) diff --git a/doc/refR.html b/doc/refR.html @@ -407,16 +407,15 @@ href="refD.html#db/3">db/3</a></code>. (setq *Ext # Set up external offsets (mapcar '((@Host @Ext) - (let Sock NIL - (cons @Ext - (curry (@Host @Ext Sock) (Obj) - (when (or Sock (setq Sock (connect @Host 4040))) - (ext @Ext - (out Sock (pr (cons 'qsym Obj))) - (prog1 (in Sock (rd)) - (unless @ - (close Sock) - (off Sock) ) ) ) ) ) ) ) ) + (cons @Ext + (curry (@Host @Ext (Sock)) (Obj) + (when (or Sock (setq Sock (connect @Host 4040))) + (ext @Ext + (out Sock (pr (cons 'qsym Obj))) + (prog1 (in Sock (rd)) + (unless @ + (close Sock) + (off Sock) ) ) ) ) ) ) ) '("localhost") '(20) ) )