From 5bfe616bd0a5e1e9d7664e7479a7d2bf1574f92d Mon Sep 17 00:00:00 2001
From: Karsten Poeck <karsten.poeck@gmail.com>
Date: Wed, 6 May 2020 21:46:56 +0200
Subject: [PATCH] Fix declariotion for complex for variable

---
 src/lsp/loop.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/loop.lsp b/src/lsp/loop.lsp
index 11c498b91..c696c3e87 100644
--- a/src/lsp/loop.lsp
+++ b/src/lsp/loop.lsp
@@ -1729,7 +1729,7 @@ Note that this is not a valid ANSI code."))
   (unless var
     (setf var (gensym)))
   (loop-sequencer
-    var (loop-check-data-type data-type 'real) t
+    var (loop-check-data-type data-type 'number) t
     nil nil nil nil nil nil
     (loop-collect-prepositional-phrases
       '((:from :upfrom :downfrom) (:to :upto :downto :above :below) (:by))