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