Porting stuff.

[lisp] / infix.lisp

diff --git a/infix.lisp b/infix.lisp
index ea78422..9c77afe 100644 (file)
--- 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.