Changeset 8928


Ignore:
Timestamp:
Mar 28, 2008, 9:13:20 AM (11 years ago)
Author:
gb
Message:

DEFINE-COMPILE-TIME-MACRO: put something (hopefully something benign)
in defenv.defined, to make it easier to recognize forward references
to macros.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/nfcomp.lisp

    r8744 r8928  
    659659    name))
    660660
    661 (defun define-compile-time-symbol-macro (name expansion env)
    662   (let* ((definition-env (definition-environment env)))
    663     (if definition-env
    664       (push (cons name expansion) (defenv.symbol-macros definition-env)))
     661(defun define-compile-time-macro (name lambda-expression env)
     662  (let ((definition-env (definition-environment env)))
     663    (when definition-env
     664      (push (list* name
     665                   'macro
     666                   (compile-named-function lambda-expression name env))
     667            (defenv.functions definition-env))
     668      (record-function-info name (cons nil 'macro) env))
    665669    name))
    666670
Note: See TracChangeset for help on using the changeset viewer.