From cdc85a93b4e2f4598bafd9fb894009db77c09689 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Subject: [PATCH 03/39] don't invoke nasal demons in TRIE-FROM-DICT --- src/lisp/structs.lisp | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/lisp/structs.lisp b/src/lisp/structs.lisp index 238ae5a..c7a8e97 100755 --- a/src/lisp/structs.lisp +++ b/src/lisp/structs.lisp @@ -279,7 +279,7 @@ (do ((line (read-line stream nil) (read-line stream nil))) ((null line)) - (setf cline (string-upcase (string-trim '(#\Space #\Tab) line))) - (if (> (length cline) depth) (setf depth (length cline))) - (trie-insert tr cline)) + (let ((cline (string-upcase (string-trim '(#\Space #\Tab) line)))) + (if (> (length cline) depth) (setf depth (length cline))) + (trie-insert tr cline))) (setf (trie-depth tr) depth))) tr) -- 1.6.2