From dfe70d7e63ad8ff59bc6daddaac0459ff69159aa Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 17 Jul 1993 00:50:55 +0000 Subject: [PATCH] use find-class-cell instead of INFO TYPE CLASS --- code/type-init.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/type-init.lisp b/code/type-init.lisp index 65d50754a..a06cb2921 100644 --- a/code/type-init.lisp +++ b/code/type-init.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/type-init.lisp,v 1.1 1993/02/04 12:11:42 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type-init.lisp,v 1.2 1993/07/17 00:50:55 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -31,7 +31,7 @@ (destructuring-bind (name &key (translation nil trans-p) &allow-other-keys) x (when trans-p - (let ((class (info type class name)) + (let ((class (class-cell-class (find-class-cell name))) (type (specifier-type translation))) (setf (built-in-class-translation class) type) (setf (info type builtin name) type))))) -- GitLab