Skip to content
Snippets Groups Projects
Commit 1d1f17ff authored by gerd's avatar gerd
Browse files

Test cases CLASS-REDEFINITION.[12] from Paul Dietz' ANSI tests.

	* src/pcl/std-class.lisp (update-cpl): Force cache flushes if we
	won't reuse the wrapper because there are class slots.
parent d7e41efd
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.54 2003/04/25 17:43:50 gerd Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.55 2003/04/26 17:35:08 gerd Exp $")
(in-package :pcl) (in-package :pcl)
...@@ -792,7 +792,11 @@ ...@@ -792,7 +792,11 @@
(defun update-cpl (class cpl) (defun update-cpl (class cpl)
(if (class-finalized-p class) (if (class-finalized-p class)
(unless (equal (class-precedence-list class) cpl) (unless (and (equal (class-precedence-list class) cpl)
(loop for c in cpl never
(loop for s in (class-direct-slots c) thereis
(eq (slot-definition-allocation s)
:class))))
;; Need to have the cpl setup before update-lisp-class-layout ;; Need to have the cpl setup before update-lisp-class-layout
;; is called on CMUCL. ;; is called on CMUCL.
(setf (slot-value class 'class-precedence-list) cpl) (setf (slot-value class 'class-precedence-list) cpl)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment