Code: Select all
(defun my-list (&rest list)
list)
(my-list 'a 'b 'c 'd) => (a b c d)
Also, big numbers are also very useful. It's here or not?
Thanks.
-- ekd123
Code: Select all
(defun my-list (&rest list)
list)
(my-list 'a 'b 'c 'd) => (a b c d)
Code: Select all
> (define (f x y) (list x y (args)))
> (f 1 2 3 4 5 6)
(1 2 (3 4 5 6))
Code: Select all
;; Common Lisp example
(defun keylist (a &key x y z)
(list a x y z))
(defun )
(keylist 1 :z 5 :y 3) => (1 NIL 3 5)
(defun optionallist (a &optional (x 5)) (list a x ))
(optionallist 6)
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-with-keys (keylist a)
(list a x y z))
> (keylist 1 'z 5 'y 3)
(1 nil 3 5)
Code: Select all
(define-macro (define-with-keys name+params)
(letex ($keylet (cons 'let (cons '$keybinds (args)))
$name+params name+params)
(define $name+params
(letex ($keybinds (explode (args) 2))
$keylet))))
Code: Select all
> keylist
(lambda (a)
(letex ($keybinds (explode (args) 2))
(let $keybinds
(list a x y z))))
Code: Select all
(define-with-keys (together a (b nil)) (list a b c d))
(together 'a 'b 'c 1 'd 2) ; ==> (a b 1 2)