From e384c7c09cd6ab73396963c7661b0b14b15e95da Mon Sep 17 00:00:00 2001 From: Gabor Melis Date: Thu, 4 Feb 2010 23:27:00 +0000 Subject: [PATCH] 1.0.35.4: fix compilation on chenygc platforms Thanks to Larry Valkama and Bruce O'Neel. --- NEWS | 2 ++ src/code/gc.lisp | 7 +++++-- version.lisp-expr | 2 +- 3 files changed, 8 insertions(+), 3 deletions(-) diff --git a/NEWS b/NEWS index adf8eaf..2d0b819 100644 --- a/NEWS +++ b/NEWS @@ -1,5 +1,7 @@ ;;;; -*- coding: utf-8; fill-column: 78 -*- changes relative to sbcl-1.0.35: + * bug fix: fix compilation on chenygc platforms. Thanks to Larry Valkama and + Bruce O'Neel. * bug fix: SB-THREAD:CONDITION-WAIT sometimes signaled a deadline twice in a row even though a handler defered the deadline long into the future. (lp#512914) diff --git a/src/code/gc.lisp b/src/code/gc.lisp index 9c98561..c76ca43 100644 --- a/src/code/gc.lisp +++ b/src/code/gc.lisp @@ -358,22 +358,24 @@ collection is initiated. This can be set with SETF." (defun ,(symbolicate "GENERATION-" slot) (generation) #!+sb-doc ,doc + #!+gencgc (declare (generation-index generation)) #!-gencgc (declare (ignore generation)) #!-gencgc (error "~S is a GENCGC only function and unavailable in this build" - ',name) + ',slot) #!+gencgc (slot (deref generations generation) ',slot)) ,@(when setfp `((defun (setf ,(symbolicate "GENERATION-" slot)) (value generation) + #!+gencgc (declare (generation-index generation)) #!-gencgc (declare (ignore value generation)) #!-gencgc (error "(SETF ~S) is a GENCGC only function and unavailable in this build" - ',name) + ',slot) #!+gencgc (setf (slot (deref generations generation) ',slot) value))))))) (def bytes-consed-between-gcs @@ -415,6 +417,7 @@ objects allocated to the generation have seen younger objects promoted to it. Available on GENCGC platforms only. Experimental: interface subject to change." + #!+gencgc (declare (generation-index generation)) #!-gencgc (declare (ignore generation)) #!-gencgc diff --git a/version.lisp-expr b/version.lisp-expr index e75d2bc..605938e 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.3" +"1.0.35.4" -- 1.7.10.4