X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/a035dd4a8175317f19a35cd04568d1655fb8d417..fe0f07ea19b36ce1abc1ec305d0203323cbf2316:/infix.lisp

diff --git a/infix.lisp b/infix.lisp
index ea78422..9c77afe 100644
--- a/infix.lisp
+++ b/infix.lisp
@@ -70,7 +70,7 @@
   (name nil :type symbol)
   (lprec nil :type (or fixnum null))
   (rprec nil :type (or fixnum null))
-  (func (lambda () nil) :type (function () t)))
+  (func (lambda () nil) :type #-ecl (function () t) #+ecl function))
 
 ;;;--------------------------------------------------------------------------
 ;;; Global parser state.