138 |
(member fir erblisp-allowed-words)) |
(member fir erblisp-allowed-words)) |
139 |
fir |
fir |
140 |
(intern (concat "fs-" (format "%S" fir)))) |
(intern (concat "fs-" (format "%S" fir)))) |
141 |
(mapcar 'erblisp-sandbox (cdr expr))))))) |
(mapcar 'erblisp-sandbox (cdr expr)))))))) |
142 |
|
|
143 |
;; final condition.. --> when the expr is an atom.. It should be a |
;; final condition.. --> when the expr is an atom.. It should be a |
144 |
;; a constant.. or an allowed atom.. allowed == prefixed with fs- |
;; a constant.. or an allowed atom.. allowed == prefixed with fs- |