;;;; Programer: Kevin Rosenberg
;;;; Date Started: 1 Nov 2001
;;;;
-;;;; $Id: edge-table-storage.lisp,v 1.4 2003/06/12 12:42:13 kevin Exp $
+;;;; $Id: edge-table-storage.lisp,v 1.5 2003/06/17 05:47:18 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;;
:name "edge-table"
:type "dat"))))
- (defun store-edge-table (et &optional (path *et-path*))
+ (defun store-edge-table (et &optional (path *et-path*))
+ (declare (type edge-table et))
(with-open-file (stream path :direction :output
:if-exists :supersede)
(print (length et) stream)
(with-open-file (stream path :direction :input)
(let* ((length (read stream))
(et (make-array length :element-type 'fixnum)))
- (dotimes (i length)
- (declare (fixnum i))
- (setf (aref et i) (read stream)))
- et))))
+ (declare (type (simple-array fixnum (*)) et))
+ (dotimes (i length)
+ (declare (fixnum i))
+ (setf (aref et i) (read stream)))
+ et))))
(unless (probe-file *et-path*)
(format *trace-output* ";; Recompiling edge-table, this make take several minutes")