diff --git a/compiler/mips/macros.lisp b/compiler/mips/macros.lisp
index 5ab5798274f05663b53ddca99c18e7a0aa1710c8..399b70d02f910398dd2ed806179f0394c5b7fe85 100644
--- a/compiler/mips/macros.lisp
+++ b/compiler/mips/macros.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.4 1990/02/06 02:49:14 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.5 1990/02/06 12:33:14 ch Exp $
 ;;;
 ;;;    This file contains various useful macros for generating MIPS code.
 ;;;
@@ -27,13 +27,6 @@
     `(unless (location= ,n-dst ,n-src)
        (inst or ,n-dst ,n-src zero-tn))))
 
-(defmacro li (dst immed)
-  "Load Immediate"
-  (cond ((minusp immed)
-	 `(inst addi ,dst zero-tn ,immed))
-	(t
-	 `(inst addiu ,dst zero-tn ,immed))))
-
 (defmacro b (label)
   "Unconditional branch"
   `(inst beq zero-tn zero-tn ,label))