/[cmucl]/src/code/macros.lisp
ViewVC logotype

Diff of /src/code/macros.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.68 by pw, Tue Mar 13 16:52:14 2001 UTC revision 1.69 by pw, Sun Jun 3 14:11:16 2001 UTC
# Line 83  Line 83 
83                      ,@local-decs                      ,@local-decs
84                      (block ,name                      (block ,name
85                        ,body))))                        ,body))))
86          `(c::%defmacro ',name #',def ',lambda-list ,doc)))))          `(progn
87               (eval-when (:compile-toplevel)
88                 (c::do-macro-compile-time ',name #',def))
89               (eval-when (:load-toplevel :execute)
90                 (c::%defmacro ',name #',def ',lambda-list ,doc)))))))
91    
92    
93  ;;; %Defmacro, %%Defmacro  --  Internal  ;;; %Defmacro, %%Defmacro  --  Internal
# Line 126  Line 130 
130                      ,@local-decs                      ,@local-decs
131                      (block ,name                      (block ,name
132                        ,body))))                        ,body))))
133          `(c::%define-compiler-macro ',name #',def ',lambda-list ,doc)))))          `(progn
134               (eval-when (:compile-toplevel)
135                 (c::do-compiler-macro-compile-time ',name #',def))
136               (eval-when (:load-toplevel :execute)
137                 (c::%define-compiler-macro ',name #',def ',lambda-list ,doc)))))))
138    
139    
140  (defun c::%define-compiler-macro (name definition lambda-list doc)  (defun c::%define-compiler-macro (name definition lambda-list doc)
141    (assert (eval:interpreted-function-p definition))    (assert (eval:interpreted-function-p definition))

Legend:
Removed from v.1.68  
changed lines
  Added in v.1.69

  ViewVC Help
Powered by ViewVC 1.1.5