;; For backward compatibility
(let ((dir (asdf:component-pathname (asdf:find-system :clg-tools))))
(setf (logical-pathname-translations "clg")
;; For backward compatibility
(let ((dir (asdf:component-pathname (asdf:find-system :clg-tools))))
(setf (logical-pathname-translations "clg")