From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Mon, 13 Feb 2006 10:56:29 +0000 (+0000)
Subject: 0.9.9.26:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=effa5c5b6a302cbcde162c49a1aaa6d96a030add;p=sbcl.git

0.9.9.26:
	Move the Linux/ppc heap around again, in an attempt to find a space
	that everyone can use...
	... lichtblau on #lisp reported that his ppc mapped stuff at
		#x30000000
	... also some whitespace unbreakification.
---

diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp
index 54e7eef..26d2e32 100644
--- a/src/compiler/ppc/parms.lisp
+++ b/src/compiler/ppc/parms.lisp
@@ -92,10 +92,10 @@
 
 #!+linux
 (progn
-  (def!constant dynamic-0-space-start #x20000000)
-  (def!constant dynamic-0-space-end   #x3ffff000)
-  (def!constant dynamic-1-space-start #x50000000)
-  (def!constant dynamic-1-space-end   #x6ffff000)
+  (def!constant dynamic-0-space-start #x50000000)
+  (def!constant dynamic-0-space-end   #x67fff000)
+  (def!constant dynamic-1-space-start #x68000000)
+  (def!constant dynamic-1-space-end   #x7ffff000)
 
   (def!constant linkage-table-space-start #x0a000000)
   (def!constant linkage-table-space-end   #x0b000000)
diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index fc939a6..38c5c93 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -1795,7 +1795,7 @@ bootstrapping.
            (!bootstrap-slot-index 'standard-boundp-method s))))
 
 (defun safe-method-specializers (method)
-  (let ((standard-method-classes 
+  (let ((standard-method-classes
          (list *the-class-standard-method*
                *the-class-standard-reader-method*
                *the-class-standard-writer-method*
@@ -1805,7 +1805,7 @@ bootstrapping.
         (clos-slots-ref (get-slots method) *sm-specializers-index*)
         (method-specializers method))))
 (defun safe-method-fast-function (method)
-  (let ((standard-method-classes 
+  (let ((standard-method-classes
          (list *the-class-standard-method*
                *the-class-standard-reader-method*
                *the-class-standard-writer-method*
@@ -1815,7 +1815,7 @@ bootstrapping.
         (clos-slots-ref (get-slots method) *sm-fast-function-index*)
         (method-fast-function method))))
 (defun safe-method-function (method)
-  (let ((standard-method-classes 
+  (let ((standard-method-classes
          (list *the-class-standard-method*
                *the-class-standard-reader-method*
                *the-class-standard-writer-method*
@@ -1825,7 +1825,7 @@ bootstrapping.
         (clos-slots-ref (get-slots method) *sm-function-index*)
         (method-function method))))
 (defun safe-method-qualifiers (method)
-  (let ((standard-method-classes 
+  (let ((standard-method-classes
          (list *the-class-standard-method*
                *the-class-standard-reader-method*
                *the-class-standard-writer-method*
@@ -1987,7 +1987,7 @@ bootstrapping.
       (gf-dfun-state generic-function)))
 (defun (setf safe-gf-dfun-state) (new-value generic-function)
   (if (eq (class-of generic-function) *the-class-standard-generic-function*)
-      (setf (clos-slots-ref (get-slots generic-function) 
+      (setf (clos-slots-ref (get-slots generic-function)
                             *sgf-dfun-state-index*)
             new-value)
       (setf (gf-dfun-state generic-function) new-value)))
@@ -2103,7 +2103,7 @@ bootstrapping.
 
 (defun safe-gf-arg-info (generic-function)
   (if (eq (class-of generic-function) *the-class-standard-generic-function*)
-      (clos-slots-ref (fsc-instance-slots generic-function) 
+      (clos-slots-ref (fsc-instance-slots generic-function)
                       *sgf-arg-info-index*)
       (gf-arg-info generic-function)))
 
diff --git a/tests/mop-12.impure-cload.lisp b/tests/mop-12.impure-cload.lisp
index 5bcbbb0..f39915b 100644
--- a/tests/mop-12.impure-cload.lisp
+++ b/tests/mop-12.impure-cload.lisp
@@ -34,7 +34,7 @@
 
 (defvar *count1* 0)
 
-(defmethod myfun1 (a b) 
+(defmethod myfun1 (a b)
   (incf *count1*))
 
 (myfun1 2 3)
@@ -63,7 +63,7 @@
 
 (defvar *count2* 0)
 
-(defmethod myfun2 (a b) 
+(defmethod myfun2 (a b)
   (incf *count2*))
 
 (myfun2 2 3)
diff --git a/tests/mop-13.impure-cload.lisp b/tests/mop-13.impure-cload.lisp
index 1fbc789..7dc5656 100644
--- a/tests/mop-13.impure-cload.lisp
+++ b/tests/mop-13.impure-cload.lisp
@@ -35,7 +35,7 @@
 
 (defvar *count1* 0)
 
-(defmethod myfun1 (a b) 
+(defmethod myfun1 (a b)
   (incf *count1*))
 
 (myfun1 2 3)
@@ -64,7 +64,7 @@
 
 (defvar *count2* 0)
 
-(defmethod myfun2 (a b) 
+(defmethod myfun2 (a b)
   (incf *count2*))
 
 (myfun2 2 3)
diff --git a/version.lisp-expr b/version.lisp-expr
index 63e84ab..ab39446 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".)
-"0.9.9.25"
+"0.9.9.26"