-(handler-case
- (logical-pathname-translations "CL-LIBRARY")
- (error ()
- (load (make-pathname :name "set-cl-library" :type "cl"
- :defaults *load-truename*))))
+;; For use with non-Debian installations
+(let ((helper-pathname (make-pathname :name "set-cl-library" :type "cl"
+ :defaults *load-truename*)))
+ (when (probe-file helper-pathname)
+ (load helper-pathname)))