Skip to content
Snippets Groups Projects
Commit dfe70d7e authored by ram's avatar ram
Browse files

use find-class-cell instead of INFO TYPE CLASS

parent 1f805b4b
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -31,7 +31,7 @@
(destructuring-bind (name &key (translation nil trans-p) &allow-other-keys) (destructuring-bind (name &key (translation nil trans-p) &allow-other-keys)
x x
(when trans-p (when trans-p
(let ((class (info type class name)) (let ((class (class-cell-class (find-class-cell name)))
(type (specifier-type translation))) (type (specifier-type translation)))
(setf (built-in-class-translation class) type) (setf (built-in-class-translation class) type)
(setf (info type builtin name) type))))) (setf (info type builtin name) type)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment