[Openmcl-devel] defclass initform issue

[Zach Beane]

On Wed, Nov 26, 2008 at 07:51:22AM -0500, Zach Beane wrote:
> I didn't expect the following result:
> 
>   ? (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? 

I can simplify:

  ? (funcall (lambda () (make-array 1 :element-type '(signed-byte 16)
				      :initial-element -1)))
  > Error: value -1 is not of the expected type (UNSIGNED-BYTE 16).

Zach