I have defined the following func:
Code: Select all
(define (type val)
(if
(float? val) 'float
(integer? val) 'integer
(lambda? val) 'lambda
(list? val) 'list
(macro? val) 'macro
(string? val) 'string
(symbol? val) 'symbol
(atom? val) 'atom))Code: Select all
> (load "tools.lsp")
invalid lambda expression : [text]lambda
(list? val) 'list
(macro? val) 'macro
(string? val) 'string
(symbol? val) 'symbol
(atom? val) 'atom))