Index: /branches/arm/compiler/nx1.lisp
===================================================================
--- /branches/arm/compiler/nx1.lisp	(revision 13759)
+++ /branches/arm/compiler/nx1.lisp	(revision 13760)
@@ -2077,4 +2077,12 @@
 				    (dpb (length bindings) $lfbits-numreq 0))))
 
+(defnx1 nx1-arm-lap-function (arm-lap-function) (name bindings &body body)
+  (require "ARM-LAP")
+  (setf (afunc-lfun *nx-current-function*)
+        (%define-arm-lap-function name `((let ,bindings ,@body))
+				    (dpb (length bindings) $lfbits-numreq 0))))
+
+                    
+