+;; Get SBCL to shut up about package variance. This is a standard result of
+;; my approach to symbol exports, and I don't care.
+#+sbcl
+(progn
+ (unless (fboundp 'real-note-package-variance)
+ (setf (symbol-function 'real-note-package-variance)
+ (symbol-function 'sb-impl::note-package-variance)))
+ (handler-bind ((sb-ext:package-lock-violation #'continue)
+ (sb-kernel:redefinition-warning #'muffle-warning))
+ (defun sb-impl::note-package-variance
+ (&rest args &key package &allow-other-keys)
+ (let ((ignore (getf sb-ext:*on-package-variance* :ignore)))
+ (unless (or (eq ignore t)
+ (and (listp ignore)
+ (member (package-name package) ignore)))
+ (apply #'real-note-package-variance args)))))
+ (setf sb-ext:*on-package-variance* '(:ignore t)))
+