[postmodern-devel] Bug when redefining a class.

[Lucas Hope]

Hi again,

The following triggers an incorrect error for me. Not a major bug
since the third case provides a workaround.

(defclass FOO ()
  ((bar :col-type real))
  (:metaclass dao-class)
  (:keys baz))

(dao-table-definition 'foo) ;; correct error.

;; redefine:
(defclass FOO ()
  ((bar :col-type real))
  (:metaclass dao-class))
;; incorrect error!

;; redefine:
(defclass FOO ()
  ((bar :col-type real))
  (:metaclass dao-class)
  (:keys bar))
;; works, then can run the second defclass successfully.

-Luke