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 38ccbc8bd5eefa023fd0705f88db0ec5c895625e
parent d47d6364f278eae3e7ccb19322fd09aedcceadff
Author: Commit-Bot <unknown>
Date:   Sun,  3 Oct 2010 06:48:25 +0000

Automatic commit from picoLisp.tgz, From: Sun, 03 Oct 2010 06:48:25 GMT
Diffstat:
Mlib.l | 32++++++++++++++++----------------
Msrc64/version.l | 4++--
2 files changed, 18 insertions(+), 18 deletions(-)

diff --git a/lib.l b/lib.l @@ -1,4 +1,4 @@ -# 27aug10abu +# 03oct10abu # (c) Software Lab. Alexander Burger (de task (Key . Prg) @@ -303,34 +303,34 @@ (de pp ("X" C) (let *Dbg NIL - (when (pair "X") - (setq C (cdr "X")) ) + (and (pair "X") (setq C (cdr "X"))) (prin "(") (printsp (if C 'dm 'de)) - (prog1 - (printsp "X") + (prog1 (printsp "X") (setq "X" (if C (method (if (pair "X") (car "X") "X") C) (val "X") ) ) (cond - ((atom "X") - (prin ". ") - (print "X") ) + ((atom "X") (prin ". ") (print "X")) ((atom (cdr "X")) (ifn (cdr "X") (print (car "X")) (print (car "X")) (prin " . ") (print @) ) ) - (T (print (pop '"X")) - (while (pair "X") - (prinl) - (pretty (pop '"X") 3) ) - (when "X" - (prin " . ") - (print "X") ) - (space) ) ) + (T + (let Z "X" + (print (pop '"X")) + (loop + (T (== Z "X") (prin " .")) + (NIL "X") + (T (atom "X") + (prin " . ") + (print "X") ) + (prinl) + (pretty (pop '"X") 3) ) + (space) ) ) ) (prinl ")") ) ) ) (de show ("X" . @) diff --git a/src64/version.l b/src64/version.l @@ -1,6 +1,6 @@ -# 30sep10abu +# 03oct10abu # (c) Software Lab. Alexander Burger -(de *Version 3 0 4 1) +(de *Version 3 0 4 2) # vi:et:ts=3:sw=3