[Openmcl-devel] defclass initform issue

[Zach Beane]

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? 

Zach