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