[Openmcl-devel] defclass initform issue

Zach Beane xach at xach.com
Wed Nov 26 04:51:22 PST 2008


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



More information about the Openmcl-devel mailing list