(defpackage "YOUR-PACKAGE"
  (:use "CL" "PARENSCRIPT" "ITERATE")
  (:shadow "WHILE"))
(in-package "YOUR-PACKAGE")
(defmacro defalias (new old)
  `(progn
     (setf (symbol-function new) (symbol-function old)
           (macro-function  new) (macro-function  old))
     ',new))
(eval-when (:compile-toplevel :load-toplevel :execute)
  (defalias iwhile iterate:while)
  (defalias jwhile parensscript:while))