mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 11:26:18 -04:00
19 lines
197 B
Common Lisp
19 lines
197 B
Common Lisp
|
|
(defun burp ((thing integer))
|
|
(* thing 3)
|
|
)
|
|
|
|
(define thing 2)
|
|
|
|
(set! thing 3)
|
|
|
|
|
|
(+ (let ((thing 4))
|
|
(set! thing (+ thing 1))
|
|
thing
|
|
)
|
|
(burp thing)
|
|
(set! thing 4)
|
|
thing
|
|
)
|