Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Mar 13th, 2014  |  syntax: Lisp  |  size: 0.15 KB  |  views: 134  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. (defmacro magically-add (number &optional (base 'test-))
  2.   `(funcall (intern (concatenate 'string (symbol-name ',base) (write-to-string ,number)))))
clone this paste RAW Paste Data