Removed macro while, since it's defined in utilities.

Pascal J. Bourguignon [2013-06-13 22:10]
Removed macro while, since it's defined in utilities.
Filename
common-lisp/cesarum/package.lisp
diff --git a/common-lisp/cesarum/package.lisp b/common-lisp/cesarum/package.lisp
index 0cb0d0d..a6f0fe1 100644
--- a/common-lisp/cesarum/package.lisp
+++ b/common-lisp/cesarum/package.lisp
@@ -265,9 +265,6 @@ SEE ALSO:  REGISTER, LOAD-PACKAGE, ADD-NICKNAME.
 (defmacro verbose (fctrl &rest args)
   `(when *package-verbose* (format *vout* ,fctrl ,@args)))

-(defmacro while (condition &body body)  `(do () ((not ,condition))  ,@body))
-
-
 (defun package-exports (package)
   "
 RETURN:   A new list of exported symbols from PACKAGE.
@@ -736,8 +733,5 @@ DO:         Declares a package.
        (defpackage ,name ,@defpack-args)
        (in-package ,name))))

-
-
-
-;;;; package.lisp                     --                     --          ;;;;
+;;;; THE END ;;;;
ViewGit