Code: Select all
(let ((y 6))
(defun reset-y ()
(setf y 6))
(defun set-y (x)
(setf y x))
(defun get-y ()
y))
Code: Select all
(let ((y 6))
(defun reset-y ()
(setf y 6))
(defun set-y (x)
(setf y x))
(defun get-y ()
y))