From d3a20211cd639081185d5d3de1aa2e3e080042de Mon Sep 17 00:00:00 2001 From: Alastair Bridgewater Date: Sun, 14 Feb 2010 20:17:36 +0000 Subject: [PATCH] 1.0.35.16: Whitespace damage. --- contrib/sb-introspect/test-driver.lisp | 2 +- src/code/gc.lisp | 4 ++-- version.lisp-expr | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/contrib/sb-introspect/test-driver.lisp b/contrib/sb-introspect/test-driver.lisp index f1c896b..2d94f11 100644 --- a/contrib/sb-introspect/test-driver.lisp +++ b/contrib/sb-introspect/test-driver.lisp @@ -450,7 +450,7 @@ #+nil (progn - + (defstruct (struct (:predicate our-struct-p) (:copier copy-our-struct)) (a 42 :type fixnum)) diff --git a/src/code/gc.lisp b/src/code/gc.lisp index c76ca43..8839b3e 100644 --- a/src/code/gc.lisp +++ b/src/code/gc.lisp @@ -358,7 +358,7 @@ collection is initiated. This can be set with SETF." (defun ,(symbolicate "GENERATION-" slot) (generation) #!+sb-doc ,doc - #!+gencgc + #!+gencgc (declare (generation-index generation)) #!-gencgc (declare (ignore generation)) @@ -369,7 +369,7 @@ collection is initiated. This can be set with SETF." (slot (deref generations generation) ',slot)) ,@(when setfp `((defun (setf ,(symbolicate "GENERATION-" slot)) (value generation) - #!+gencgc + #!+gencgc (declare (generation-index generation)) #!-gencgc (declare (ignore value generation)) diff --git a/version.lisp-expr b/version.lisp-expr index 21ce819..63e68dd 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,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.35.15" +"1.0.35.16" -- 1.7.10.4