(defvar *meta-index* (make-array 5) "meta slot symbol by meta table column index")
(defvar *meta-meta* (make-array 5))
-(defun get-table-entry (table-name index)
+(defun get-table (table-name)
(let* ((table-index (gethash table-name *index-by-name*))
(table (aref *table-by-index* table-index)))
- (aref (table-entries table) index)))
+ table))
+
+(defun get-table-entry (table-name index)
+ (aref (table-entries (get-table table-name)) index))
(defclass xdump-parser ()
((line-parser :accessor line-parser :initform nil)
(entries (table-entries table)))
; extend array if necessary
(unless (> (fill-pointer entries) index)
- (adjust-array entries (* 2 index) :fill-pointer t))
+ (adjust-array entries (* 2 index) :fill-pointer index :initial-element nil))
(setf (aref entries index) e)
(loop
for item in entry