[Openmcl-cvs-notifications] r16240 - in /trunk/source/compiler: ARM/arm-lap.lisp PPC/ppc-lap.lisp X86/x86-lap.lisp

gz at clozure.com gz at clozure.com
Thu Sep 25 17:14:22 UTC 2014


Author: gz
Date: Thu Sep 25 17:14:22 2014
New Revision: 16240

Log:
Make lap macros in all backends use 'lap-macro as the record-source-file ty=
pe

Modified:
    trunk/source/compiler/ARM/arm-lap.lisp
    trunk/source/compiler/PPC/ppc-lap.lisp
    trunk/source/compiler/X86/x86-lap.lisp

Modified: trunk/source/compiler/ARM/arm-lap.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/ARM/arm-lap.lisp	(original)
+++ trunk/source/compiler/ARM/arm-lap.lisp	Thu Sep 25 17:14:22 2014
@@ -39,7 +39,7 @@
   `(progn
      (setf (arm-lap-macro-function ',name)
            (nfunction (arm-lap-macro ,name) ,(parse-macro name arglist bod=
y)))
-     (record-source-file ',name 'arm-lap)
+     (record-source-file ',name 'lap-macro)
      ',name))
 =

 (defvar *arm-lap-lfun-bits* 0)

Modified: trunk/source/compiler/PPC/ppc-lap.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/PPC/ppc-lap.lisp	(original)
+++ trunk/source/compiler/PPC/ppc-lap.lisp	Thu Sep 25 17:14:22 2014
@@ -42,7 +42,7 @@
   `(progn
      (setf (ppc-lap-macro-function ',name)
            (nfunction (ppc-lap-macro ,name) ,(parse-macro name arglist bod=
y)))
-     (record-source-file ',name 'ppc-lap)
+     (record-source-file ',name 'lap-macro)
      ',name))
 =

 (defvar *ppc-lap-constants* ())

Modified: trunk/source/compiler/X86/x86-lap.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/X86/x86-lap.lisp	(original)
+++ trunk/source/compiler/X86/x86-lap.lisp	Thu Sep 25 17:14:22 2014
@@ -226,7 +226,7 @@
   `(progn
      (setf (x86-lap-macro-function ',name)
            (nfunction (x86-lap-macro ,name) ,(ccl::parse-macro name arglis=
t body)))
-     (record-source-file ',name 'x86-lap)
+     (record-source-file ',name 'lap-macro)
      ',name))
 =

 (defun x86-lap-macroexpand-1 (form)



More information about the Openmcl-cvs-notifications mailing list