Hi Jon,

concerning the trouble of removing the double "/" from 'Path':

> (let ...
>         Path (car (file))
>         ...
>         Th '(class . th) )
>     (when (tail '("/" "/") (chop Path))
>         (setq Path (pack (head -1 (chop Path))))    # removing extra "/" at 
> the end

This removes a "/" when there are two at the end. A more general
solution would be

(let ...
      Path (chop (car (file)))
      ...
      (while (seek '((L) (= "/" (car L) (cadr L))) Path)
         (con @ (cddr @)) )
      ... (pack Path) ...

This 'while' loop has the advantage that it removes all duplicated
slashes instead of just the last one. The (con @ (cddr @)) destructively
removes the second cell.

Just an idea ... ;-)

♪♫ Alex
-- 
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to