Code: Select all
> (set '.x '(1 2 3))
(1 2 3)
> .x
(1 2 3)
Code: Select all
> (set '.x '(1 2 3))
(1 2 3)
> .x
(1 2 3)
Code: Select all
(age 50)
Code: Select all
(define-macro (foo)
(local (len width height)
(bind (args) true)
(println "len:" len " width:" width " height:" height)
))
> (foo (width 20) (height 30) (len 10))
len:10 width:20 height:30
Code: Select all
(define (module $x)
(load (append (env "HOME") "/my-newlisp-modules/" $x)))
Code: Select all
(case
ostype
("Win32" (println "windows"))
("Linux" (println "penguins"))
("OSX" (println "big cats")))