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)
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)
Code: Select all
(defun my-list (&rest list)
list)
(my-list 'a 'b 'c 'd) => (a b c d)