From 0e23a549bc19b52fda3e75998ec13a0b603ae156 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Subject: [PATCH 13/39] clean up PROGN ugliness in GET-CHILD --- src/lisp/structs.lisp | 9 ++++----- 1 files changed, 4 insertions(+), 5 deletions(-) diff --git a/src/lisp/structs.lisp b/src/lisp/structs.lisp index d9e861e..ed54ca4 100755 --- a/src/lisp/structs.lisp +++ b/src/lisp/structs.lisp @@ -225,11 +225,10 @@ (tt (aref (trie-children tr) ind))) (declare (type (or trie (integer 0 0)) tt) (type (unsigned-byte 8) ind)) - (if (eql 0 tt) - (progn - (setf tt (make-trie :level (+ (trie-level tr) 1))) - (setf (aref (trie-children tr) ind) tt) - (setf (trie-parent tt) tr))) + (when (eql 0 tt) + (setf tt (make-trie :level (+ (trie-level tr) 1))) + (setf (aref (trie-children tr) ind) tt) + (setf (trie-parent tt) tr)) tt)) (defun board-from-stream (istr) -- 1.6.2