Advertisement
Guest User

Untitled

a guest
Mar 13th, 2014
217
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.15 KB | None | 0 0
  1. (defmacro magically-add (number &optional (base 'test-))
  2.   `(funcall (intern (concatenate 'string (symbol-name ',base) (write-to-string ,number)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement