title: unexpected inheritance of slot (values) using errors
body: <pre><code>(defpackage :winner
    (:use :cl)
    (:export e1))
  
  (in-package :winner)
  
  (define-condition e1 ()
    ((name
      :initform "e1"
      :reader name)
     (package 
      :initform "winner"
      :reader related-package)))
  
  (defmethod print-object ((err e1) stream)
    (FORMAT stream "~a~%~a~%" (name err) (related-package err)))
  
  
  (defpackage :loser
    (:use :cl :winner)
    (:export e2))
  
  (in-package :loser)
  
  (define-condition e2 (e1)
    ((name
      :initform "e2")
     (package
      :initform "loser")))
  </code></pre>
  
  <p>I would now expect:</p>
  
  <pre><code>(make-instance 'e1)
  e1
  winner
  
  (make-instance 'e2)
  e2
  loser
  </code></pre>
  
  <p>but instead i get</p>
  
  <pre><code>(make-instance 'winner:e1)
  e1
  winner
  
  (make-instance 'loser:e2)
  e1
  loser
  </code></pre>
  
  <p>which is is quite unexpected. 
  What error am I making?</p>