diff --git a/compiler/generic/core.lisp b/compiler/generic/core.lisp
index 87af4b5d40ea9876ef8a1808f59fa594554fb414..ffe4e2df3754237aacd5b01b8bb4c73b60a6f408 100644
--- a/compiler/generic/core.lisp
+++ b/compiler/generic/core.lisp
@@ -82,32 +82,22 @@
 	   (name (fixup-name fixup))
 	   (flavor (fixup-flavor fixup))
 	   (offset (third info)))
-      (ecase kind
-	(:addi
-	 ;; ### The lui fixup assumes that an addi follows it.
-	 )
-	(:lui
-	 (ecase flavor
-	   (:assembly-routine
-	    (assert (symbolp name))
-	    (multiple-value-bind
-		(value found)
-		(gethash name lisp::*assembler-routines*)
-	      (unless found
-		(error "Undefined assembler routine: ~S" name))
-	      (lisp::fixup-code-object code offset value)))
-	   (:foreign
-	    (assert (stringp name))
-	    (multiple-value-bind
-		(value found)
-		(gethash name lisp::*foreign-symbols* 0)
-	      (unless found
-		(error "Unknown foreign symbol: ~S" name))
-	      (lisp::fixup-code-object code offset value)))))
-	#+nil
-	(:jump
-	 ;; ### Need to impliment this.
-	 )))))
+      (multiple-value-bind
+	  (value found)
+	  (ecase flavor
+	    (:assembly-routine
+	     (assert (symbolp name))
+	     (gethash name lisp::*assembler-routines*))
+	    (:foreign
+	     (assert (stringp name))
+	     (gethash name lisp::*foreign-symbols*)))
+	(unless found
+	  (error (ecase flavor
+		   (:assembly-routine "Undefined assembler routine: ~S")
+		   (:foreign "Unknown foreign symbol: ~S"))
+		 name))
+	(lisp::fixup-code-object code offset value kind)))))
+
 
 ;;; MAKE-CORE-COMPONENT  --  Interface
 ;;;