Code: Select all
(defun my-adjoin (item list &key key test test-not)
(do-something
(adjoin item list WHAT-DO-I-PUT-HERE?)))
Code: Select all
(defun my-adjoin (item list &key key test test-not)
(do-something
(adjoin item list WHAT-DO-I-PUT-HERE?)))
Code: Select all
(defun my-adjoin (item list &key key test test-not)
(do-something
(adjoin item list :key key :test test :test-not test-not)))
Code: Select all
(defun my-adjoin (item list &rest key-args &key key test test-not)
(do-something
(apply #'adjoin item list key-args)))