From aca5b7cf7ef03517d96a1bbf4ef79f875f3c8a40 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 25 May 1990 20:44:55 +0000
Subject: [PATCH] Wrote makeunbound.

---
 code/symbol.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/code/symbol.lisp b/code/symbol.lisp
index 59d0a026a..455006f44 100644
--- a/code/symbol.lisp
+++ b/code/symbol.lisp
@@ -29,7 +29,10 @@
 (defun makunbound (variable)
   "VARIABLE must evaluate to a symbol.  This symbol is made unbound,
   removing any value it may currently have."
-  (makunbound variable))
+  (set variable
+       (%primitive make-other-immediate-type
+		   0
+		   vm:unbound-marker-type)))
 
 (defun symbol-value (variable)
   "VARIABLE must evaluate to a symbol.  This symbol's current special
-- 
GitLab