mirror of https://github.com/rusefi/bldc.git
13 lines
190 B
Common Lisp
13 lines
190 B
Common Lisp
|
|
||
|
|
||
|
(define test (lambda (x)
|
||
|
(progn
|
||
|
(define a (+ 1 2 3 4 5))
|
||
|
(if x
|
||
|
(progn
|
||
|
(define b 10)
|
||
|
(+ a b))))))
|
||
|
|
||
|
(and (eq (test 't) 25)
|
||
|
(eq (test 'nil) 'nil))
|