picolisp

commit ce44f6bdcb54e62c58cacbd4ee0b9d66b6c3f0a0
parent 5ad1c4766e3a888aabfd0062fc3ced7c8dfabc34
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon,  2 Jan 2012 18:16:07 +0100

Minor: White space
Diffstat:
M
lib/http.l
 | 
2
--
M
lib/too.l
 | 
5
-----
M
lib/xhtml.l
 | 
5
+----

3 files changed, 1 insertion(+), 11 deletions(-)
diff --git a/lib/http.l b/lib/http.l
@@ -43,7 +43,6 @@
    (in (list 'file "--brief" "--mime" File)
       (line T) ) )
 
-
 ### HTTP-Client ###
 (de client (Host Port How . Prg)
    (let? Sock (connect Host Port)
@@ -77,7 +76,6 @@
       (off *Err)
       (quit) ) )
 
-
 ### HTTP-Server ###
 (de server (P H)
    (setq
diff --git a/lib/too.l b/lib/too.l
@@ -39,7 +39,6 @@
       (markData (pop 'X)) )
    (and (ext? X) (markExt X)) )
 
-
 ### DB Mapping ###
 (de dbMap ("ObjFun" "TreeFun")
    (default "ObjFun" quote "TreeFun" quote)
@@ -91,7 +90,6 @@
       (dbMapV (pop '"X")) )
    (and (ext? "X") (_dbMap "X")) )
 
-
 ### DB Check ###
 (de dbCheck ()
    (and (lock) (quit 'lock @))  # Lock whole database
@@ -214,7 +212,6 @@
                                           (link X) ) ) ) ) ) ) ) ) ) ) )
       (cons Obj @) ) )
 
-
 ### Rebuild tree ###
 (de rebuild (X Var Cls Hook)
    (let Lst NIL
@@ -251,7 +248,6 @@
             (put> (meta Obj Var) Obj NIL @) )
          (at (0 . 10000) (commit)) ) ) )
 
-
 ### Database file management ###
 (de dbfCheck ()
    (for "Cls" (all)
@@ -405,7 +401,6 @@
             Dbf ) )
       (commit) ) )
 
-
 ### Dump Objects ###
 (de dump CL
    (let B 0
diff --git a/lib/xhtml.l b/lib/xhtml.l
@@ -1,4 +1,4 @@
-# 28nov11abu
+# 02jan12abu
 # (c) Software Lab. Alexander Burger
 
 # *JS "*JS" *Style *Menu *Tab *ID
@@ -92,7 +92,6 @@
 (de nonblank (Str)
    (or Str `(pack (char 160) (char 160))) )
 
-
 ### XHTML output ###
 (de html (Upd Ttl Css Attr . Prg)
    (httpHead NIL Upd)
@@ -363,7 +362,6 @@
                (<href> (eval (car L) 1) (urlMT *Url *Menu N *ID)) ) ) ) )
    (htPrin (get Lst *Tab -1) 2) )
 
-
 ### DB Linkage ###
 (de mkUrl (Lst)
    (pack (pop 'Lst) '?
@@ -515,7 +513,6 @@
       (prin "</li>") )
    (prinl "</ul>") )
 
-
 ### HTML form ###
 (de <post> (Attr Url . Prg)
    (prin