[Ecls-list] struct problem

[Michael O'Connor]

--- Larry Clapp <larry at theclapp.org> wrote: 
> Cannot reproduce.  Can you elaborate, or give a
> longer example?
> 
> Can you clarify what you mean by "the structure
> contains whitespace"? 
> E.g, do the slot names grow?  Do the slot values
> grow?  Does the printed
> representation change?

- that's odd, I can't reproduce either now with the
first example (I'm guessing it may depend on what's
been run previously somehow). Anyway below is an
extended example of what I mean, in that it produces a
whole lot of whitespace in its output.

- I don't know whether or not this problem (which
looks to be only an output formatting issue) is
related to the fact that my program stops running
after a while, but I'd like to fix this anyway (and
also eliminate it as a possibility).

Thanks,

Michael


(defstruct test
    long-variable-name-1
    long-variable-name-2
    )

(setf test-data (list (make-test) (make-test)
(make-test) (make-test) (make-test)))

(setf (test-long-variable-name-1 (first test-data))
"a-long-variable-value")
(setf (test-long-variable-name-2 (first test-data))
(cons 12.30 "u"))
(format t "~A~%" test-data)

(setf (test-long-variable-name-1 (second test-data))
"a-long-variable-value")
(setf (test-long-variable-name-2 (second test-data))
(cons 10.01 "c"))
(format t "~A~%" test-data)

(setf (test-long-variable-name-1 (third test-data))
"a")
(setf (test-long-variable-name-2 (third test-data))
(cons 123.00 "d"))
(format t "~A~%" test-data)

(setf (test-long-variable-name-1 (fourth test-data))
"a-long-variable-value")
(setf (test-long-variable-name-2 (fourth test-data))
(cons 3.50 "u"))
(format t "~A~%" test-data)

(setf (test-long-variable-name-1 (fifth test-data))
"a-long-variable-value")
(setf (test-long-variable-name-2 (fifth test-data))
(cons 3.0 "c"))
(format t "~A~%" test-data)



	
		
__________________________________
Do you Yahoo!?
Yahoo! Domains – Claim yours for only $14.70/year
http://smallbusiness.promotions.yahoo.com/offer