From ec123f6ff17de6fbe7ffa1411f6d7e4fc834e66d Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 27 Nov 1990 15:42:03 +0000
Subject: [PATCH] Removed suprious duplicate binding of CODE-GENERATORS in
 COMPUTE-CONSTRUCTOR-CODE.

---
 pcl/construct.lisp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/pcl/construct.lisp b/pcl/construct.lisp
index 9ee73d7ec..8b4c84d63 100644
--- a/pcl/construct.lisp
+++ b/pcl/construct.lisp
@@ -434,9 +434,7 @@
          (shared
            (compute-applicable-methods #'shared-initialize (list proto t)))
          (code-generators
-           (constructor-code-generators constructor))
-	 (code-generators
-	   (constructor-code-generators constructor)))
+           (constructor-code-generators constructor)))
     (flet ((call-code-generator (generator)
 	     (when (null generator)
 	       (unless (setq generator (getf code-generators 'fallback))
-- 
GitLab