SHARE
TWEET

Untitled




Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- (set-macro-character #\!
- (lambda (stream ch)
- (declare (ignore ch))
- (let ((*package* (find-package (read stream))))
- (read stream)))
- t)
- (defpackage "SOME-PACKAGE" (:use))
- (quote !some-package (xyz "a" cl-user::xyz))
- --> (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.