0.7.1.2:

[sbcl.git] / src / cold / with-stuff.lisp

diff --git a/src/cold/with-stuff.lisp b/src/cold/with-stuff.lisp
index 0e39e3a..47f3086 100644 (file)
--- a/src/cold/with-stuff.lisp
+++ b/src/cold/with-stuff.lisp
@@ -12,8 +12,6 @@
 
 (in-package "SB-COLD")
 
-;;;; $Header$
-
 ;;; a helper macro for WITH-ADDITIONAL-NICKNAME and WITHOUT-SOME-NICKNAME
 (defmacro with-given-nicknames ((package-designator nicknames) &body body)
   (let ((p (gensym "P"))
@@ -97,9 +95,9 @@
 (compile '%without-given-nickname)
 (compile '%multi-nickname-magic)
 
-;;; Like WITH-ADDITIONAL-NICKNAME and WITHOUT-GIVEN-NICKNAMES, except
-;;; working on arbitrary lists of nickname descriptors instead of
-;;; single nickname/package pairs.
+;;; This is like WITH-ADDITIONAL-NICKNAME and WITHOUT-GIVEN-NICKNAMES,
+;;; except working on arbitrary lists of nickname descriptors instead
+;;; of single nickname/package pairs.
 ;;;
 ;;; A nickname descriptor is a list of the form
 ;;;   PACKAGE-DESIGNATOR NICKNAME*