1.0.45.21: whitespace damage from ctor patches

  Die tabs, die!

diff --git a/src/pcl/ctor.lisp b/src/pcl/ctor.lisp
index a4bef17..95de690 100644 (file)
--- a/src/pcl/ctor.lisp
+++ b/src/pcl/ctor.lisp
@@ -708,19 +708,19 @@
                       ,@(loop for method in ii-after
                               collect `(invoke-method ,method .ii-args.))
                       .instance.)))
-            (declare (dynamic-extent #'initialize-it))
+             (declare (dynamic-extent #'initialize-it))
              (let ((.ii-args.
-                   ,@(if (or ii-before ii-after ii-around si-before si-after)
-                         `((list .instance. ,@(quote-plist-keys initargs)
-                                 ,@defaulting-initargs))
-                         `((list .instance.)))))
+                    ,@(if (or ii-before ii-after ii-around si-before si-after)
+                          `((list .instance. ,@(quote-plist-keys initargs)
+                                  ,@defaulting-initargs))
+                          `((list .instance.)))))
                ,(if ii-around
                     ;; If there are :AROUND methods, call them first -- they get
                     ;; the normal chaining, with #'INITIALIZE-IT standing in for
                     ;; the rest.
                     `(let ((.next-methods.
-                           (list ,@(cdr ii-around) #'initialize-it)))
-                      (declare (dynamic-extent .next-methods.))
+                            (list ,@(cdr ii-around) #'initialize-it)))
+                       (declare (dynamic-extent .next-methods.))
                        (invoke-method ,(car ii-around) .ii-args. .next-methods.))
                     ;; The simple case.
                     `(initialize-it .ii-args. nil)))))

diff --git a/version.lisp-expr b/version.lisp-expr
index a691cdf..1985c81 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -20,4 +20,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.45.20"
+"1.0.45.21"