[Openmcl-devel] OpenMCL MOP Reports

[Kevin Rosenberg]

Gary Byers wrote:
> These bugs (and a few others that were exposed when these were fixed)
> are fixed in CVS.

Thanks, the fixes work great.

Another test file is included. This one exposes an issue with metaclass
slots where only the first form is stored.

-- 
Kevin Rosenberg
kevin at rosenberg.net

-------------- next part --------------
(defpackage #:tmop
  (:use #:cl
	#+openmcl #:openmcl-mop
	#+sbcl #:sb-mop
	#+cmu #:mop
	#+allegro #:mop))
(in-package #:tmop)

(defclass aclass (standard-class)
  ((class-slot-a :accessor class-slot-a :initarg :class-slot-a)))

(defmethod validate-superclass ((cl aclass) (supcl standard-class))
  t)

(defclass a ()
  ()
  (:metaclass aclass)
  (:class-slot-a a1 a2 a3))

(defvar *a* (make-instance 'a))

(assert (equal
	 (class-slot-a (class-of *a*))
	 '(a1 a2 a3)))

  
-------------- next part --------------
_______________________________________________
Openmcl-devel mailing list
Openmcl-devel at clozure.com
http://clozure.com/cgi-bin/mailman/listinfo/openmcl-devel