Changeset 13760

Timestamp:

Jun 1, 2010, 4:19:32 AM (14 years ago)

Author:

Gary Byers

Message:

Handle ARM LAP function definition.

File:

• branches/arm/compiler/nx1.lisp (modified) (1 diff)

branches/arm/compiler/nx1.lisp

@@ -2077 +2077 @@
                                     (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))))
+
+                    
+