[Openmcl-cvs-notifications] r8995 - /trunk/source/lib/nfcomp.lisp

[gb at clozure.com]

Author: gb
Date: Thu Apr  3 22:03:47 2008
New Revision: 8995

Log:
Are you as annoyed at the mere presence of DEFINE-COMPILE-TIME-SYMBOL-MADRO
as I am ?
Change what gets recorded by DEFINE-COMPILE-TIME-MACRO.


Modified:
    trunk/source/lib/nfcomp.lisp

Modified: trunk/source/lib/nfcomp.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/lib/nfcomp.lisp (original)
+++ trunk/source/lib/nfcomp.lisp Thu Apr  3 22:03:47 2008
@@ -658,7 +658,7 @@
                    'macro =

                    (compile-named-function lambda-expression name env)) =

             (defenv.functions definition-env))
-      (record-function-info name (cons nil 'macro) env))
+      (record-function-info name (list (cons nil 'macro)) env))
     name))
 =

 (defun define-compile-time-symbol-macro (name expansion env)