projects
/
jscl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Functions
[jscl.git]
/
test.lisp
1
(lambda (x y)
2
x)
3
4
(debug "hola")
5
(debug '(1 2 3 4))
6
(debug (if 2 (+ 2 1) 0))
7
(debug (= (+ 2 1) (- 4 1)))
8
9
;;; Variables
10
(debug "---VARIABLES---")
11
(eval-when-compile
12
(%compile-defvar 'name))
13
(setq name 10)
14
(debug name)
15
16
;;; Functions
17
(debug "---FUNCTIONS---")
18
(eval-when-compile
19
(%compile-defun 'f))
20
(fsetq f (lambda (x) (+ x 10)))
21
(debug (f 20))