CDE

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

@@ -0,0 +1,6 @@
+(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))

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

@@ -0,0 +1,5 @@
+CL-USER> (rc-create-variable "GREETING" "hello")
+GREETING
+
+CL-USER> (print greeting)
+"hello"