Модифицированный вариант

(defpackage :tom

  (:use :common-lisp)

  (:export #:main)

  )

(in-package :tom) 

(defvar a)

(defun main ()

  (format t "~% test tom ~a ~%" a)

)

 

(defpackage :dick

  (:use :common-lisp)

  (:export #:main)

  )

(in-package :dick)

(defvar a)

(defun main ()

  (format t "~% test dick ~a ~%" a)

)

 

(let ((dick::a) (tom::a)  )

	(setq dick::a "999" )

	(setq tom::a  "888" )

	(dick::main)

	(tom::main)

)