Plaster
New
List
Login
text
default
yitzi
2022.09.03 17:33:18
(defun my-intern (name &optional (package *package*)) (intern name package)) (defun my-intern (name &optional package) (intern name (or package *package*))) (defun my-intern (name &optional (package nil packagep)) (if packagep (intern name package) (intern name)))
Raw
Annotate
Repaste
Annotations
text
default
anonymous
2022.09.03 17:48:26
(defun my-complicated-function (&key arg1 arg2 arg3) (let ((arglist `(,(when arg1 `(:arg1 ,arg1)) ,(when arg2 `(:arg1 ,arg2)) ,(when arg3 `(:arg1 ,arg3))))) (apply #'function-with-defaults arglist)))
Raw
Repaste
Edit