Skip to content
Snippets Groups Projects
Commit aca5b7cf authored by wlott's avatar wlott
Browse files

Wrote makeunbound.

parent 463460a6
No related branches found
No related tags found
No related merge requests found
...@@ -29,7 +29,10 @@ ...@@ -29,7 +29,10 @@
(defun makunbound (variable) (defun makunbound (variable)
"VARIABLE must evaluate to a symbol. This symbol is made unbound, "VARIABLE must evaluate to a symbol. This symbol is made unbound,
removing any value it may currently have." 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) (defun symbol-value (variable)
"VARIABLE must evaluate to a symbol. This symbol's current special "VARIABLE must evaluate to a symbol. This symbol's current special
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment