No title

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(defmacro inspect(variable)
  (let ((tmp (symbol-name variable))
	(tmp2 variable))
    (progn
      (print "In here")
      (sleep-for 1)
      
      (if (boundp variable)
	  (condition-case nil
	      (print (format "value of %s is %s\n" tmp tmp2))
	    (error
	     (print "error printing %s " (tmp2))))
	(print "%s is not bound" tmp2)))))

(inspect test)