Received: from CUNYVM by CUNYVM.BITNET (Mailer R2.07) with BSMTP id 3869; Sat,
Date: 30 Mar 91 20:53:13 GMT
Organization: nil
Lines: 37

In a posting of [30 Mar 91 01:15:15 GMT]
   stevev@greylady.uoregon.edu (Steve VanDevender) writes:

 > Anyone know a SYSEVAL that converts an object to its compact stack
 > display?

You may find the following addresses useful:

	#1596e  Converts object and index to stack display string

	Expects:
		3: index.sysbin         (stack level index)
		2: object               (any object)
		1: maxlen.sysbin        (maximum string size - 1)


	#15955  Same, but uses maxlen = 19 decimal (i.e. 20 chars)

	Expects:
		2: index.sysbin
		1: object.any


For example:

	:&:5 EVAL                       @ Index <5>
	<< 1 2 3 << 4 5 6 >> 7 8 >>     @ Object

	#15955h SYSEVAL

	--> "5: << 1 2 3 << 4 5 6 >> 7 "

	The program delimiters and the ellipsis are of course only
	one character each.

						-- Jan Brittenson
						   bson@ai.mit.edu