From: Nikodemus Siivola Date: Sat, 12 Feb 2011 15:12:01 +0000 (+0000) Subject: 1.0.45.21: whitespace damage from ctor patches X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f821414f0c4d2ec4e0710ddaa90737c10359fda1;p=sbcl.git 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 --- 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 --- 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"