Index: /trunk/source/compiler/nx1.lisp
===================================================================
--- /trunk/source/compiler/nx1.lisp	(revision 14120)
+++ /trunk/source/compiler/nx1.lisp	(revision 14121)
@@ -2078,4 +2078,5 @@
 
 (defnx1 nx1-arm-lap-function (arm-lap-function) (name bindings &body body)
+  (declare (ftype (function (t t t)) %define-arm-lap-function))
   (require "ARM-LAP")
   (setf (afunc-lfun *nx-current-function*)