- :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")))
-
- (defun store-edge-table (et &optional (path *et-path*))
+ :directory (pathname-directory *load-truename*)
+ :host (pathname-host *load-truename*)
+ :device (pathname-device *load-truename*)
+ :name "edge-table"
+ :type "dat"))))
+
+ (defun store-edge-table (et &optional (path *et-path*))
+ (declare (type edge-table et))