+(eval-when (:load-toplevel :execute)
+ (let ((precompiled-path (make-pathname
+ :directory '(:absolute "usr" "share" "common-lisp"
+ "source" "reversi")
+ :name "edge-table"
+ :type "dat")))
+ (if (probe-file precompiled-path)
+ (setq *et-path* precompiled-path)