From 81c6f85203df993c7e29ac5f75d50c705dbbfd8d Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Mon, 21 Aug 2006 16:34:58 +0000 Subject: [PATCH] 0.9.15.43: Tiny rename in PCL, to stop me from confusing UPDATE-CLASS with the completely unrelated (FLET UPDATE-CLASS). --- src/pcl/methods.lisp | 6 +++--- version.lisp-expr | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp index 76a784f..f488ae3 100644 --- a/src/pcl/methods.lisp +++ b/src/pcl/methods.lisp @@ -844,13 +844,13 @@ (unless *new-class* (update-std-or-str-methods gf type)) (when (and (standard-svuc-method type) (structure-svuc-method type)) - (flet ((update-class (class) + (flet ((update-accessor-info (class) (when (class-finalized-p class) (dolist (slotd (class-slots class)) (compute-slot-accessor-info slotd type gf))))) (if *new-class* - (update-class *new-class*) - (map-all-classes #'update-class 'slot-object))))) + (update-accessor-info *new-class*) + (map-all-classes #'update-accessor-info 'slot-object))))) (defvar *standard-slot-value-using-class-method* nil) (defvar *standard-setf-slot-value-using-class-method* nil) diff --git a/version.lisp-expr b/version.lisp-expr index 917eb2e..47792c6 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.15.42" +"0.9.15.43" -- 1.7.10.4