2016 Update

Task/Dynamic-variable-names/Common-Lisp/dynamic-variable-names-2.lisp

@@ -1,5 +1,6 @@
-CL-USER> (rc-create-variable "GREETING" "hello")
-GREETING
-
-CL-USER> (print greeting)
-"hello"
+(defun rc-create-variable (name initial-value)
+  "Create a global variable whose name is NAME in the current package and which is bound to INITIAL-VALUE."
+  (let ((symbol (intern name)))
+    (proclaim `(special ,symbol))
+    (setf (symbol-value symbol) initial-value)
+    symbol))