Hi JmageK, > : (Let S "tst" > (match (list '@ (mapcar any (chop S)) '@) > (chop "1st tst nil") ) )
If you look at : (list '@ (mapcar any (chop S)) '@) -> (@ (t s t) @) you see that you match against a tree-element-list (besides that the 'any' is not helpful here). What we need is : (make (link '@) (mapc link (chop S)) (link '@)) -> (@ "t" "s" "t" @) or better : (make (link '@) (chain (chop S)) (link '@)) -> (@ "t" "s" "t" @) The shortest and fastest way is probably: : (conc (cons '@) (chop S) '(@)) -> (@ "t" "s" "t" @) ☺/ A!ex -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
