X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/67ebac1bc097d6458b82905d6289756147502f19..53e95db096ab58c3acbf176f4c671cb612d832ae:/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.