Advertisement
Guest User

Untitled

a guest
Jun 8th, 2018
141
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.22 KB | None | 0 0
  1. (defun unintern-shadowing-symbols (package)
  2.   (let ((syms (package-shadowing-symbols package)))
  3.     (dolist (sym syms) (unintern sym package))
  4.     (format t "uninterned ~D shadowing symbols ~%"
  5.             (length syms))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement