SHARE
TWEET

Untitled

a guest Jul 14th, 2019 76 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (set-macro-character #\!
  2.                      (lambda (stream ch)
  3.                        (declare (ignore ch))
  4.                        (let ((*package* (find-package (read stream))))
  5.                          (read stream)))
  6.                      t)
  7.  
  8. (defpackage "SOME-PACKAGE" (:use))
  9. (quote !some-package (xyz "a" cl-user::xyz))
  10. --> (some-package::xyz "a" common-lisp-user::xyz)
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top