1335 |
;; The following ought to have a better definition for use with newer |
;; The following ought to have a better definition for use with newer |
1336 |
;; byte compilers. |
;; byte compilers. |
1337 |
(defmacro macrolet (bindings &rest body) |
(defmacro macrolet (bindings &rest body) |
1338 |
"Make temporary macro defns. |
"Make temporary macro definitions. |
1339 |
This is like `flet', but for macros instead of functions. |
This is like `flet', but for macros instead of functions. |
1340 |
|
|
1341 |
\(fn ((NAME ARGLIST BODY...) ...) FORM...)" |
\(fn ((NAME ARGLIST BODY...) ...) FORM...)" |
1351 |
cl-macro-environment)))))) |
cl-macro-environment)))))) |
1352 |
|
|
1353 |
(defmacro symbol-macrolet (bindings &rest body) |
(defmacro symbol-macrolet (bindings &rest body) |
1354 |
"Make symbol macro defns. |
"Make symbol macro definitions. |
1355 |
Within the body FORMs, references to the variable NAME will be replaced |
Within the body FORMs, references to the variable NAME will be replaced |
1356 |
by EXPANSION, and (setq NAME ...) will act like (setf EXPANSION ...). |
by EXPANSION, and (setq NAME ...) will act like (setf EXPANSION ...). |
1357 |
|
|