Fix declariotion for complex for variable

This commit is contained in:
Karsten Poeck 2020-05-06 21:46:56 +02:00
parent 04aa7c539e
commit 5bfe616bd0

View file

@ -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))