diff --git a/pcl/construct.lisp b/pcl/construct.lisp index 9ee73d7ecb275e19aa5a21cb208bc719199089fd..8b4c84d63424e2aebdca6dfc664a79681bcfae34 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))