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