ecl's defclass is not evalling its :initform argument: > (defclass foo () ((a :initform most-positive-fixnum :accessor foo- a))) #<The STANDARD-CLASS FOO> > (setq foo (make-instance 'foo)) #<a FOO> > (foo-a foo) MOST-POSITIVE-FIXNUM --rick