Advertisement
Guest User

Untitled

a guest
Jan 3rd, 2019
182
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.36 KB | None | 0 0
  1. (defun mixed (arg1 &rest arguments &aux (arg2 30) arg2-supplied)
  2. (unless (member (first arguments) '(:arg3))
  3. (setf arg2 (pop arguments) arg2-supplied t))
  4. (destructuring-bind (&key (arg3 24 arg3-supplied)) arguments
  5. (list arg1 arg2 arg3 arg2-supplied arg3-supplied)))
  6.  
  7. (mixed 22 44) --> (22 44 24 t nil)
  8. (mixed 22 44 :arg3 33) --> (22 44 33 t t)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement