-#+lispworks
-(eval-when (:compile-toplevel :load-toplevel :execute)
- (defpackage #:ansi-loop
- (:import-from #:loop
- #:*epilogue*)))
-
-#+allegro
-(eval-when (:compile-toplevel :load-toplevel :execute)
- (unless (find-package '#:ansi-loop)
- (let ((excl::*enable-package-locked-errors* nil))
- (rename-package '#:excl '#:excl
- (cons '#:ansi-loop
- (package-nicknames (find-package '#:excl)))))))
-
-#+lispworks
-(eval-when (:compile-toplevel :load-toplevel :execute)
- (unless (find-package '#:ansi-loop)
- (rename-package '#:loop '#:loop
- (cons '#:ansi-loop
- (package-nicknames (find-package '#:loop))))))
-
-#+(or sbcl lispworks)