;;; -*- Mode:LISP; Package:USER; Readtable:CL; Base:10 -*-��(defvar a 'ok "foo")��(defun foo ()�  (print a)�  (let ((a 'bogus))�    (bar)�    a))��(defun bar ()�  (print a))��