Changeset main,68

Timestamp:

11/24/2007 02:53:56 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071124025356-uw0kv5znpa73es5e

Message:

Automatically coerce the data to a vector.

File:

• main/grid/hash-data.lisp (modified) (1 diff)

main/grid/hash-data.lisp

@@ -6 +6 @@
   ((row-tables :type (vector hash-table) :initarg :row-tables)
    (keys :type vector :initarg :keys)))
+
+(defmethod initialize-instance ((data hash-per-row-grid-data) &rest init-args
+                                &key row-tables keys &allow-other-keys)
+  (apply #'call-next-method
+         data
+         :row-tables (coerce row-tables 'vector)
+         :keys (coerce keys 'vector)
+         init-args))
 
 (defmethod rows ((d hash-per-row-grid-data))