Пакет bob видит ясно символ *p* и может его менять.
Как ему это удается и зачем тогда export и import вообще?
(Package BOB clear see symbol *p* and can changing 'plist' elements.
How this makes and what are role of export and import at all?

 

(defpackage :tom

  (:use :common-lisp)

  (:export #:main #:init *p*)

)

 

(in-package :tom)

(defvar *p*)

(defun init()

  	   (setf *p*

 	    '(

 		 :one    "1" 

 		 :two    "2" 

 		 :free   "3" 

 	     )

	   )

)

(defun main()

 	   (format t "~% To show element:: ~a ; 

                          To show all plist::  ~a ~%" 

	    (getf *p* :free) 

	    *p*

	   )

 

)  

 

(defpackage :bob

  (:use :common-lisp)

  (:export #:setval)

  (:import-from :tom *p*)

 

)

 

(in-package :bob)

 (defun setval()

 	   (setf (getf tom::*p* :free) "1001")

) 

 

 

 

 

(in-package :bob)

(tom::init)

(tom::main)

(bob::setval)

(tom::main)

 

* (load "tom.lsp")
T
* (load "bob.lsp")
T
* (in-package :bob)
(tom::init)
(tom::main)
(bob::setval)
(tom::main)

#<PACKAGE "BOB">
(:ONE "1" :TWO "2" :FREE "3")
To show element:: 3 ; To show all plist:: (ONE 1 TWO 2 FREE 3)
NIL
"1001"
To show element:: 1001 ; To show all plist:: (ONE 1 TWO 2 FREE 1001)
NIL

Проверил. Похоже символ сохранился (более менее случайно) в окружении-сеансе slime. Действительно unbound. Вопрос снят.