Code: Select all
>
(define (sub-name lexical-args) (add lexical-args))
(lambda (lexical-args) (add lexical-args))
> (find "lexical-args" (map term (symbols)))
212
> (delete 'lexical-args)
true
> (find "lexical-args" (map term (symbols)))
nil
Code: Select all
>
(define (sub-name lexical-args) (add lexical-args))
(lambda (lexical-args) (add lexical-args))
> (find "lexical-args" (map term (symbols)))
212
> (delete 'lexical-args)
true
> (find "lexical-args" (map term (symbols)))
nil
Code: Select all
> (define (sub-name lexical-args) (add lexical-args))
(lambda (lexical-args) (add lexical-args))
> (sub-name 2)
2
> (delete 'lexical-args)
true
> (sub-name 2)
ERR: symbol is protected : nil
called from user defined function sub-name
> (set 'lexical-args nil)
nil
> (sub-name 2)
ERR: symbol is protected : nil
called from user defined function sub-name
> (set 'lexical-args 2)
2
> (sub-name 2)
ERR: symbol is protected : nil
called from user defined function sub-name