From ee0dc7db5bd8984a7bed623e16cf4691eb8a1d32 Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Tue, 20 Jan 1998 13:08:32 +0000
Subject: [PATCH] Use defpackage instead of in-package

---
 pcl/iterate.lisp | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/pcl/iterate.lisp b/pcl/iterate.lisp
index d690a9537..2b8907669 100644
--- a/pcl/iterate.lisp
+++ b/pcl/iterate.lisp
@@ -26,13 +26,14 @@
 ;;; 
 ;;; Original source {pooh/n}<pooh>vanmelle>lisp>iterate;4 created 27-Sep-88 12:35:33
 
-(in-package :iterate :use '(:lisp :walker))
-   
+(defpackage "ITERATE" (:use :common-lisp :walker)
+  (:export "ITERATE" "ITERATE*" "GATHERING" "GATHER" "WITH-GATHERING"
+	   "INTERVAL" "ELEMENTS" "LIST-ELEMENTS" "LIST-TAILS"
+	   "PLIST-ELEMENTS" "EACHTIME" "WHILE" "UNTIL"
+	   "COLLECTING" "JOINING" "MAXIMIZING" "MINIMIZING" "SUMMING"
+	   "*ITERATE-WARNINGS*"))
 
-(export '(iterate iterate* gathering gather with-gathering interval elements 
-                list-elements list-tails plist-elements eachtime while until 
-                collecting joining maximizing minimizing summing 
-                *iterate-warnings*))
+(in-package "ITERATE")
 
 (defvar *iterate-warnings* :any "Controls whether warnings are issued for iterate/gather forms that aren't optimized.
 NIL => never; :USER => those resulting from user code; T => always, even if it's the iteration macro that's suboptimal."
@@ -295,7 +296,8 @@ NIL => never; :USER => those resulting from user code; T => always, even if it's
                  let-bindings
                  (list (list gvar
                              (cond
-                              (leftover-body
+			      #-cmu ; Python thinks this is unreachable.
+			      (leftover-body
                                                ; Have to use this up
                                `(progn ,@(prog1 leftover-body (setq 
                                                                   leftover-body
-- 
GitLab