diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp index 01b8428d9a71b786a4253a5f9f789bcf0681a123..875728d368bb6464d04476260229fc74f9a9f544 100644 --- a/compiler/mips/cell.lisp +++ b/compiler/mips/cell.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.62 1992/12/16 13:58:00 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.63 1992/12/16 14:01:12 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -107,7 +107,7 @@ ;;;; Fdefinition (fdefn) objects. (define-vop (fdefn-function cell-ref) - (:variant fdefn-function-slot-slot other-pointer-type)) + (:variant fdefn-function-slot other-pointer-type)) (define-vop (safe-fdefn-function) (:args (object :scs (descriptor-reg) :target obj-temp))