daily pastebin goal
41%
SHARE
TWEET

Untitled

a guest Jun 13th, 2018 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (DEFMACRO PKG-BIND (PKG &BODY BODY)
  2.   `(LET ((*PACKAGE* (FIND-PACKAGE ,PKG)))
  3.      (EVAL
  4.       (READ-FROM-STRING
  5.        ,(WRITE-TO-STRING `(PROGN ,@BODY))))))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top