[Openmcl-devel] OpenMCL 1.0-rc1

[Bill Clementson]

Hi all,

I have come across a potential bug in the release candidate. Here is
the behaviour under OpenMCL Version (Beta: Darwin) 0.14.3:

~/bin/ccl-old $ dppccl
Welcome to OpenMCL Version (Beta: Darwin) 0.14.3!
? (defclass bc () ((slot1 :initarg :slot1)))
#<STANDARD-CLASS BC>
? (defclass bc-sbcl () ((slot1 :initarg :slot1)))
#<STANDARD-CLASS BC-SBCL>
? (defvar *bc*)
*BC*
? (setq *bc*
	   (make-instance #+sbcl #-sb-thread 'bc-sbcl
			  #+sbcl #+sb-thread 'bc-sbcl
			  #-sbcl 'bc
			  :slot1 "test"))
#<BC #x739C6FE>
?

Here is the behaviour under OpenMCL Version 1.0-rc1-050922 (DarwinPPC32):

~/bin/ccl $ dppccl
Welcome to OpenMCL Version 1.0-rc1-050922 (DarwinPPC32)!
? (defclass bc () ((slot1 :initarg :slot1)))
#<STANDARD-CLASS BC>
? (defclass bc-sbcl () ((slot1 :initarg :slot1)))
#<STANDARD-CLASS BC-SBCL>
? (defvar *bc*)
*BC*
? (setq *bc*
	   (make-instance #+sbcl #-sb-thread 'bc-sbcl
			  #+sbcl #+sb-thread 'bc-sbcl
			  #-sbcl 'bc
			  :slot1 "test"))
> Error in process listener(1): Class named :SLOT1 not found.
> While executing: FIND-CLASS
> Type :POP to abort.
Type :? for other options.
1 > :pop

? (setq *bc*
	   (make-instance #-sbcl 'bc
			  :slot1 "test"))
#<BC #x83A95CE>
?

--
Bill Clementson