1(in-package :cl-sloop)
2(defmacro sloop (&rest body)
3  (warn (intl:gettext "Using deprecated macro 'sloop'. Use 'loop' instead."))
4  `(loop ,@body))
5
6