<html lang='en'>
<head>
<meta content='text/html; charset=utf-8' http-equiv='Content-Type'>
<title>
GitLab
</title>
</meta>
</head>
<style>
img {
max-width: 100%;
height: auto;
}
p.details {
font-style:italic;
color:#777
}
.footer p {
font-size:small;
color:#777
}
pre.commit-message {
white-space: pre-wrap;
}
.file-stats a {
text-decoration: none;
}
.file-stats .new-file {
color: #090;
}
.file-stats .deleted-file {
color: #B00;
}
</style>
<body>
<div class='content'>
<h3>Raymond Toy pushed to branch master at <a href="https://gitlab.common-lisp.net/cmucl/cmucl">cmucl / cmucl</a></h3>
<h4>
Commits:
</h4>
<ul>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/f7e92b739fe1311d89924c9a5fc725e5b1b1440e">f7e92b73</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2015-11-10T21:39:15Z</i>
</div>
<pre class='commit-message'>Rename arguments to RENAME-PACKAGE and update docstring
Can't ever remember the order of arguments for RENAME-PACKAGE so just
rename the variables to make it clearer. And update the docstring to
be a little more verbose.</pre>
</li>
</ul>
<h4>1 changed file:</h4>
<ul>
<li class='file-stats'>
<a href='#diff-0'>
src/code/package.lisp
</a>
</li>
</ul>
<h4>Changes:</h4>
<li id='diff-0'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/commit/f7e92b739fe1311d89924c9a5fc725e5b1b1440e#diff-0'>
<strong>
src/code/package.lisp
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- a/src/code/package.lisp
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/code/package.lisp
</span><span style="color: #aaaaaa">@@ -1204,23 +1204,25 @@
</span> ;;; Change the name if we can, blast any old nicknames and then
;;; add in any new ones.
;;;
<span style="color: #000000;background-color: #ffdddd">-(defun rename-package (package name &optional (nicknames ()))
- "Changes the name and nicknames for a package."
</span><span style="color: #000000;background-color: #ddffdd">+(defun rename-package (package new-name &optional (new-nicknames ()))
+ "Replaces the name and nicknames of Package. The old name and all of
+ the old nicknames of Package are eliminated and are replaced by
+ New-Name and New-Nicknames."
</span> (let* ((package (package-or-lose package))
<span style="color: #000000;background-color: #ffdddd">- (name (string name))
- (found (find-package name)))
</span><span style="color: #000000;background-color: #ddffdd">+ (new-name (string new-name))
+ (found (find-package new-name)))
</span> (unless (or (not found) (eq found package))
(error 'simple-package-error
<span style="color: #000000;background-color: #ffdddd">- :package name
</span><span style="color: #000000;background-color: #ddffdd">+ :package new-name
</span> :format-control (intl:gettext "A package named ~S already exists.")
<span style="color: #000000;background-color: #ffdddd">- :format-arguments (list name)))
</span><span style="color: #000000;background-color: #ddffdd">+ :format-arguments (list new-name)))
</span> (remhash (package-%name package) *package-names*)
(dolist (n (package-%nicknames package))
(remhash n *package-names*))
<span style="color: #000000;background-color: #ffdddd">- (setf (package-%name package) name)
- (setf (gethash name *package-names*) package)
</span><span style="color: #000000;background-color: #ddffdd">+ (setf (package-%name package) new-name)
+ (setf (gethash new-name *package-names*) package)
</span> (setf (package-%nicknames package) ())
<span style="color: #000000;background-color: #ffdddd">- (enter-new-nicknames package nicknames)
</span><span style="color: #000000;background-color: #ddffdd">+ (enter-new-nicknames package new-nicknames)
</span> package))
;;; Delete-Package -- Public
</code></pre>
<br>
</li>
</div>
<div class='footer' style='margin-top: 10px;'>
<p>
—
<br>
<a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/f7e92b739fe1311d89924c9a5fc725e5b1b1440e">View it on GitLab</a>
<br>
You're receiving this email because of your account on <a href="https://gitlab.common-lisp.net/">gitlab.common-lisp.net</a>.
If you'd like to receive fewer emails, you can adjust your notification settings.
<script type="application/ld+json">{"@context":"http://schema.org","@type":"EmailMessage","action":{"@type":"ViewAction","name":"View Commit","url":"https://gitlab.common-lisp.net/cmucl/cmucl/commit/f7e92b739fe1311d89924c9a5fc725e5b1b1440e"}}</script>
</p>
</div>
</body>
</html>