From 74dd32a8a04e42b22f74b11d4e5cc900f918e624 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Subject: [PATCH 19/39] delete spurious CCL type declaration --- src/lisp/solver.lisp | 2 -- 1 files changed, 0 insertions(+), 2 deletions(-) diff --git a/src/lisp/solver.lisp b/src/lisp/solver.lisp index 3d821ee..7673a69 100755 --- a/src/lisp/solver.lisp +++ b/src/lisp/solver.lisp @@ -103,8 +103,6 @@ (if (and (not (eql tr 0)) (<= fi *max-search-depth*)) (let ((neighbors (letter-neighbors ltr))) - ;; for some reason ccl needs a type decl here for the neighbors ?! - #+ccl (declare (type neighbors (vector letter (8)))) (dotimes (i (length neighbors)) (let ((neighbor (aref neighbors i))) #+ccl (declare (type letter neighbor)) -- 1.6.2