Changeset 8917


Ignore:
Timestamp:
Mar 28, 2008, 8:25:38 AM (11 years ago)
Author:
gb
Message:

DEFINE-COMPILE-TIME-MACRO: put something in defenv.defined, so that
we can better catch forward references to macros. (Try to ensure
that that "something" is benign.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx.lisp

    r8681 r8917  
    255255(defun define-compile-time-macro (name lambda-expression env)
    256256  (let ((definition-env (definition-environment env)))
    257     (if definition-env
     257    (when definition-env
    258258      (push (list* name
    259259                   'macro
    260260                   (compile-named-function lambda-expression :name name :env env))
    261             (defenv.functions definition-env)))
     261            (defenv.functions definition-env))
     262      (record-function-info name (cons nil 'macro) env))
    262263    name))
Note: See TracChangeset for help on using the changeset viewer.