;;; -*- Mode:LISP; Package:USER -*-
(symbol-value
(defun foo ()
  (let ((X 1))
    (bar)))

(defun bar ()
  (format t "~&Plain old X = ~S" x)
  (format t "~&symbol-value= ~S" (symbol-value 'x))
  (format t "~&interpreter-symeval= ~S" (si:interpreter-symeval 'x)))

(foo)

(defun zoo (x)
  #'(lambda() (print x)))

(funcall (zoo 3))