diff --git a/compiler/mips/system.lisp b/compiler/mips/system.lisp
index 2e8b48d61f03cf6aa9ca8a2fa711fdb4a939db8f..b1c44b6a6e6c2627a6f263e89501929522621074 100644
--- a/compiler/mips/system.lisp
+++ b/compiler/mips/system.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.28 1990/07/03 06:31:19 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.29 1990/07/13 12:01:36 wlott Exp $
 ;;;
 ;;;    MIPS VM definitions of various system hacking operations.
 ;;;
@@ -124,6 +124,16 @@
     (loadw res x 0 vm:other-pointer-type)
     (inst srl res res vm:type-bits)))
 
+(define-vop (get-closure-length)
+  (:translate get-closure-length)
+  (:policy :fast-safe)
+  (:args (x :scs (descriptor-reg)))
+  (:results (res :scs (unsigned-reg)))
+  (:result-types positive-fixnum)
+  (:generator 6
+    (loadw res x 0 vm:function-pointer-type)
+    (inst srl res res vm:type-bits)))
+
 (define-vop (set-header-data)
   (:translate set-header-data)
   (:policy :fast-safe)