From 7080b1e9b36c539a62e7412daf00aa1326cc62eb Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 13 Apr 1990 20:12:51 +0000
Subject: [PATCH] Initial MIPS version.

---
 code/fdefinition.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/code/fdefinition.lisp b/code/fdefinition.lisp
index f7c0634af..24ba1b5af 100644
--- a/code/fdefinition.lisp
+++ b/code/fdefinition.lisp
@@ -58,11 +58,13 @@
     (functionp (%primitive fast-symbol-function name))
     (functionp (gethash (cadr name) *setf-functions*))))
 
+#+new-compiler
+(defvar *the-undefined-function*)
+
 #+new-compiler
 (defun fmakunbound (name)
   "Make Name have no global function definition."
   (with-function-name name
-    (%primitive set-symbol-function name
-		(%primitive make-immediate-type 0 %trap-type))
+    (%primitive set-symbol-function name *the-undefined-function*)
     (remhash (cadr name) *setf-functions*))
   t)
-- 
GitLab