Changeset 8926


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

Um, put DEFINE-COMPILE-TIME-MACRO back in nfcomp.lisp.

Location:
branches/working-0711/ccl
Files:
2 edited

Legend:

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

    r8917 r8926  
    253253(provide 'nx)
    254254
    255 (defun define-compile-time-macro (name lambda-expression env)
    256   (let ((definition-env (definition-environment env)))
    257     (when definition-env
    258       (push (list* name
    259                    'macro
    260                    (compile-named-function lambda-expression :name name :env env))
    261             (defenv.functions definition-env))
    262       (record-function-info name (cons nil 'macro) env))
    263     name))
     255
  • branches/working-0711/ccl/lib/nfcomp.lisp

    r8882 r8926  
    723723(defun define-compile-time-macro (name lambda-expression env)
    724724  (let ((definition-env (definition-environment env)))
    725     (if definition-env
     725    (when definition-env
    726726      (push (list* name
    727727                   'macro
    728728                   (compile-named-function lambda-expression :name name :env env))
    729             (defenv.functions definition-env)))
     729            (defenv.functions definition-env))
     730      (record-function-info name (cons nil 'macro) env))
    730731    name))
    731732
Note: See TracChangeset for help on using the changeset viewer.