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))