[Openmcl-devel] defclass initform issue

[R. Matthew Emerson]

On Nov 26, 2008, at 9:36 AM, Gail Zacharias wrote:

> At 11/26/2008 07:51 AM, Zach Beane wrote:
>>  ? (defclass foo ()
>>      ((data
>>        :initform (make-array 1
>>                              :element-type '(signed-byte 16)
>>                              :initial-element -1))))
>>  #<STANDARD-CLASS FOO>
>>
>>  ? (make-instance 'foo)
>>> Error: value -1 is not of the expected type (UNSIGNED-BYTE 16).
>>
>> Startup says:
>>
>>  Welcome to Clozure Common Lisp Version 1.2-r10552  (LinuxX8664)!
>>
>> Is that a bug in CCL, or in my expectations?
>
>
> In CCL.  Should be fixed in the trunk now.

I went ahead and committed this fix to the 1.2 branch as well.