From baec9bef83e1caa8f6111805e5acfa583e777bff Mon Sep 17 00:00:00 2001
From: Nathan Froyd <froydnj@gmail.com>
Subject: [PATCH 18/39] declare TRIE-CHILDREN as a SIMPLE-VECTOR

---
 src/lisp/structs.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/lisp/structs.lisp b/src/lisp/structs.lisp
index 9b0a67b..03f848d 100755
--- a/src/lisp/structs.lisp
+++ b/src/lisp/structs.lisp
@@ -35,7 +35,7 @@
   (is-word nil :type boolean)
   (text "" :type string)
   (parent nil);;:type trie)
-  (children (make-array 30 :element-type 'trie)))
+  (children (make-array 30) :type simple-vector))
 
 ;; struct functions
 
-- 
1.6.2