From: Sam S. <sd...@gn...> - 2003-04-03 14:44:00
|
> * In message <sqf...@la...> > * On the subject of "Re: [clisp-list] Re: Current CVS observations" > * Sent on Thu, 03 Apr 2003 10:44:49 +0100 > * Honorable Christophe Rhodes <cs...@ca...> writes: > > I'll give it a try -- I'll try to have a look at it on my travels. thanks. > I hesitate to ask, but has there been any progress on the other two > issues I reported? (in case they're lost, they related to EVAL-WHEN > :EXECUTE not being executed when it's not at top-level, and use of I am afraid I don't recall this. > print-logical-block setting a variable (*PRIN-LEVEL*?) in a locked > package. please try the appended patch. -- Sam Steingold (http://www.podval.org/~sds) running RedHat8 GNU/Linux <http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/> <http://www.mideasttruth.com/> <http://www.palestine-central.com/links.html> (lisp programmers do it better) --- pprint.lisp.~1.8.~ 2002-11-28 15:40:13.000000000 -0500 +++ pprint.lisp 2003-04-03 09:43:39.000000000 -0500 @@ -114,6 +114,7 @@ (suf (gensym "PPLB-SUFF-"))) `(let ((,pre ,prefix) (,suf ,suffix) + (*prin-level* (1+ *prin-level*)) (*prin-line-prefix* ,per-line-prefix) (*prin-miserp* (and *print-miser-width* @@ -159,7 +160,6 @@ (go pprint-logical-block-end)))) (pprint-exit-if-list-exhausted () '(unless obj (go pprint-logical-block-end)))) - (incf *prin-level*) (when ,pre (write-string ,pre ,out) (pprint-indent :current 0 ,out)) |