Newsgroups: comp.lang.lisp
Path: cantaloupe.srv.cs.cmu.edu!das-news2.harvard.edu!oitnews.harvard.edu!purdue!lerc.nasa.gov!magnus.acs.ohio-state.edu!math.ohio-state.edu!howland.reston.ans.net!vixen.cso.uiuc.edu!sdd.hp.com!night.primate.wisc.edu!aplcenmp!hall
From: hall@aplcenmp.apl.jhu.edu (Marty Hall)
Subject: Re: Allegro CL 4.2 and *print-length*
Message-ID: <DG6nLp.8uu@aplcenmp.apl.jhu.edu>
Organization: JHU/APL AI Lab, Hopkins P/T CS Faculty
References: <Pine.SUN.3.90.951006174215.22976A-100000@krusty.eecs.umich.edu>
Date: Mon, 9 Oct 1995 13:17:48 GMT
Lines: 29

In article <Pine.SUN.3.90.951006174215.22976A-100000@krusty.eecs.umich.edu> 
"Samuel J. Rauch" <srauch@krusty.eecs.umich.edu> writes:
>
>I am having trouble with Allegro CL 4.2 truncating my output and I 
>believe that it is due to the *print-length* symbol.  However I can't 
>seem to set it with (setf (symbol-value *print-length*) ##) or (set 
>*print-length* ##).  Does anyone know what I might be able to do?

Just (setq *print-length* <value>) is sufficient. However, there are
a couple of different contexts where *print-length* can show up. The
top-level output is controlled by tpl:*print-length*. Output in the
debugger is controlled by tpl:*zoom-print-length*. Otherwise
*print-length* controls it.

USER(37): (setq *print-length* 4)
4
USER(38): (setq tpl:*print-length* 6)
6
USER(39): (let ((test (loop for I from 1 to 10 collecting I)))
	    (print test)    ; *print-length controls this
	    test            ; tpl:*print-length* controls this
	    )

(1 2 3 4 ...) 
(1 2 3 4 5 6 ...)

Cheers-
						- Marty
(proclaim '(inline skates))
