; Newlisp interpreter analyzes the expression and inserts symbols
; used in the expression into symbol-table *before* evaluation
; of the expression.
; Because of that, one can write the function that assigns the
; value to the symbols of the block before the symbols are
; actually defined, or even mentioned in the block.
; Don't look first at the function - it is technical. Take a look
; at main program block first and analyze the function only if
; that block is interesting to you.
(if (not symbols1)
(set 'symbols1 (symbols)))
'(i symbols1 symbols2 self-conscious-symbols))))
(set i (append "I am " (string i) ". I feel "
(string (apply amb
" is close."))))))
'(set 'i (list Maharishi
; I am Sri-Aurobindo. I feel Sri-Chinmoy is close.