From 90387a89a4077f51e811f7287a56e4e2d9a9c98f Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 16 Feb 1993 10:51:45 +0000
Subject: [PATCH] Flush extra ).  Don't unnecessarily set compiler-layout in
 bootstrap hack.

---
 code/class.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/code/class.lisp b/code/class.lisp
index d54032060..7495da951 100644
--- a/code/class.lisp
+++ b/code/class.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.5 1993/02/11 19:01:43 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.6 1993/02/16 10:51:45 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -119,7 +119,7 @@
 (declaim (inline (setf layout-hash)))
 (defun (setf layout-hash) (new-value layout i)
   (declare (type layout layout) (type index new-value i))
-  (setf (%instance-ref layout (1+ i)) new-value)))
+  (setf (%instance-ref layout (1+ i)) new-value))
 
 ;;; The CLASS structure is a supertype of all CLASS types.  A CLASS is also a
 ;;; CTYPE structure as recognized by the type system.
@@ -230,7 +230,6 @@
 					(vector super-layout))
 			   (1+ (layout-inheritance-depth super-layout)))))
 	(register-layout layout nil nil)
-	(setf (info type compiler-layout name) layout)
 	res))))
 
 
-- 
GitLab