Skip to content
Snippets Groups Projects
Commit 4cce0d64 authored by wlott's avatar wlott
Browse files

Don't define a built-in class for LRA in the gengc system.

parent dd52049d
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/class.lisp,v 1.24 1993/05/13 19:19:59 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.25 1993/05/19 16:11:29 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -412,7 +412,7 @@ ...@@ -412,7 +412,7 @@
(weak-pointer :codes (#.vm:weak-pointer-type)) (weak-pointer :codes (#.vm:weak-pointer-type))
(scavenger-hook #+gengc :codes #+gengc (#.vm:scavenger-hook-type)) (scavenger-hook #+gengc :codes #+gengc (#.vm:scavenger-hook-type))
(code-component :codes (#.vm:code-header-type)) (code-component :codes (#.vm:code-header-type))
(lra :codes (#.vm:return-pc-header-type)) #-gengc (lra :codes (#.vm:return-pc-header-type))
(fdefn :codes (#.vm:fdefn-type)) (fdefn :codes (#.vm:fdefn-type))
(random-class) ; Used for unknown type codes. (random-class) ; Used for unknown type codes.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment