[Openmcl-devel] Arglist of :accessors

[Sven Van Caekenberghe]

I noticed the following difference between 0.13 and the latest 0.14:

Welcome to OpenMCL Version (Beta: Darwin) 0.13.6!
? (defclass foo () ((bar :accessor get-bar)))
#<STANDARD-CLASS FOO>
? (arglist #'get-bar)
(#:FOO)
:ANALYSIS

Welcome to OpenMCL Version (Alpha: Darwin) 0.14-031220!
? (defclass foo () ((bar :accessor get-bar)))
#<STANDARD-CLASS FOO>
? (arglist #'get-bar)
(CCL::ARG-0)
:ANALYSIS

Maybe this has something to do with the newer slot access code or 
extended MOP support.

Sven