+ (defparameter *et-path* nil)
+
+ (if *load-truename*
+ (setq *et-path* (make-pathname
+ :directory (pathname-directory *load-truename*)
+ :host (pathname-host *load-truename*)
+ :device (pathname-device *load-truename*)
+ :name "edge-table"
+ :type "dat"))
+ (setq *et-path* (make-pathname
+ :directory '(:absolute "usr" "share" "common-lisp"
+ "source" "reversi" "data")
+ :name "edge-table"
+ :type "dat")))
+