0 Members and 1 Guest are viewing this topic.
(setq varlist (list "abc" "123" "1.5") newlist '() )(FOREACH var varlist (SETQ newlist (CONS (IF (DISTOF var) (READ var) var ) newlist ) ))(setq newlist (reverse newlist))