Advertisement
Guest User

Untitled

a guest
Jul 14th, 2019
125
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.38 KB | None | 0 0
  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)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement