Changeset 8964


Ignore:
Timestamp:
Mar 30, 2008, 9:31:23 AM (11 years ago)
Author:
gb
Message:

Restore missing DEFINE-COMPILE-TIME-SYMBOL-MACRO, which is clearly
wondering what it's done wrong.

File:
1 edited

Legend:

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

    r8928 r8964  
    650650            (fcomp-random-toplevel-form (macroexpand-1 form env) env)))))))
    651651     
    652 (defun define-compile-time-macro (name lambda-expression env)
    653   (let ((definition-env (definition-environment env)))
    654     (if definition-env
    655       (push (list* name
    656                    'macro
    657                    (compile-named-function lambda-expression name env))
    658             (defenv.functions definition-env)))
    659     name))
     652
    660653
    661654(defun define-compile-time-macro (name lambda-expression env)
     
    667660            (defenv.functions definition-env))
    668661      (record-function-info name (cons nil 'macro) env))
     662    name))
     663
     664(defun define-compile-time-symbol-macro (name expansion env)
     665  (let* ((definition-env (definition-environment env)))
     666    (if definition-env
     667      (push (cons name expansion) (defenv.symbol-macros definition-env)))
    669668    name))
    670669
Note: See TracChangeset for help on using the changeset viewer.