base: compile-time-defun should define in the interpreter.

[lisp] / infix.lisp

diff --git a/infix.lisp b/infix.lisp
index ea78422340db8add6c7e23398027befc5ed82991..9c77afeb95f86fe5780684e5cae8cc4b15bd8f3a 100644 (file)
--- a/infix.lisp
+++ b/infix.lisp
@@ -70,7 +70,7 @@ (defstruct (operator (:predicate operatorp)
   (name nil :type symbol)
   (lprec nil :type (or fixnum null))
   (rprec nil :type (or fixnum null))
   (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.
 
 ;;;--------------------------------------------------------------------------
 ;;; Global parser state.