;; Tell SBCL where to find its source source.
#+sbcl
-(sb-ext:set-sbcl-source-location #p"/usr/share/sbcl-source/")
+(let ((srcdir #p"/usr/share/sbcl-source/"))
+ (when (probe-file srcdir)
+ (sb-ext:set-sbcl-source-location srcdir)))
;; Get SBCL to shut up about package variance. This is a standard result of
;; my approach to symbol exports, and I don't care.