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 335ae934a86677fe8872a95f2191c370de6db70e
parent 3e345ebd65cf58c73ed5164862b8a514211395f1
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 13 Jul 2013 09:25:34 +0200

'snapshot' add slash separator
Diffstat:
Mlib/too.l | 14+++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lib/too.l b/lib/too.l @@ -1,22 +1,22 @@ -# 12jul13abu +# 13jul13abu # (c) Software Lab. Alexander Burger ### Local Backup ### (de snapshot (Dst Max . @) (let I -1 - (while (info (pack Dst (inc 'I)))) + (while (info (pack Dst '/ (inc 'I)))) (while (>= (dec 'I) Max) - (call 'rm "-rf" (pack Dst I)) ) + (call 'rm "-rf" (pack Dst '/ I)) ) (while (ge0 I) - (call 'mv (pack Dst I) (pack Dst (inc I))) + (call 'mv (pack Dst '/ I) (pack Dst '/ (inc I))) (dec 'I) ) ) - (when (call 'mkdir (pack Dst 0)) + (when (call 'mkdir (pack Dst "/0")) (while (args) (let (Lst (filter bool (split (chop (next)) '/)) Src (car Lst) - Old (pack Dst "1/" Src) - New (pack Dst "0/" Src) ) + Old (pack Dst "/1/" Src) + New (pack Dst "/0/" Src) ) (recur (Lst Src Old New) (ifn (cdr Lst) (recur (Src Old New)