;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:CL -*-


(DEFSTRUCT (FOO (:CONSTRUCTOR MAKEFOO (A B C D))
		(:CONSTRUCTOR MAKE-FOO))

  A B (C (GENSYM))
  ((D #o0003 4)
   (E #o0303)))


(defstruct (bar (:type :flonum-array))
  a
  b
  c)