2217 |
(defmacro loop (&environment env &rest keywords-and-forms) |
(defmacro loop (&environment env &rest keywords-and-forms) |
2218 |
#+Genera (declare (compiler:do-not-record-macroexpansions) |
#+Genera (declare (compiler:do-not-record-macroexpansions) |
2219 |
(zwei:indentation . zwei:indent-loop)) |
(zwei:indentation . zwei:indent-loop)) |
2220 |
|
(declare (optimize (safety 1))) |
2221 |
(loop-standard-expansion keywords-and-forms env *loop-ansi-universe*)) |
(loop-standard-expansion keywords-and-forms env *loop-ansi-universe*)) |
2222 |
|
|
2223 |
#+allegro |
#+allegro |