MKUPACK will increment package names even if :name is given.

Pascal J. Bourguignon [2019-05-21 16:20]
MKUPACK will increment package names even if :name is given.
Filename
common-lisp/interactive/interactive.lisp
diff --git a/common-lisp/interactive/interactive.lisp b/common-lisp/interactive/interactive.lisp
index b40311a..e2e6bdd 100644
--- a/common-lisp/interactive/interactive.lisp
+++ b/common-lisp/interactive/interactive.lisp
@@ -324,11 +324,14 @@ USE:        A package use list to use.  When given, STEPPER is ignored.
         (pjb         "COM.INFORMATIMAGO.PJB")
         (cl-stepper  "COM.INFORMATIMAGO.COMMON-LISP.LISP.STEPPER")
         (interactive "COM.INFORMATIMAGO.COMMON-LISP.INTERACTIVE.INTERACTIVE")
-        (name        (if name
-                         (string name)
-                         (loop
-                           :for i :from 1 :for p = (format nil "USER~A" i)
-                           :while (find-package p) :finally (return p)))))
+        (name        (loop
+                       :for i :from 0
+                       :for p = (if name
+                                    (string name)
+                                    (format nil "~A~A" name i))
+                         :then (format nil "~A~A" name i)
+                       :while (find-package p)
+                       :finally (return p))))
     (unless (find-package pjb)
       ;; Create a COM.INFORMATIMAGO.PJB package that reexports INTERACTIVE:
       (let ((pjb  (make-package pjb :use (list cl interactive)))
ViewGit