From: SourceForge.net <no...@so...> - 2004-01-08 18:00:01
|
Bugs item #873204, was opened at 2004-01-08 19:00 Message generated for change (Tracker Item Submitted) made by Item Submitter You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=101355&aid=873204&group_id=1355 Category: clisp Group: lisp error Status: Open Resolution: None Priority: 5 Submitted By: Lennart Staflin (lenst) Assigned to: Sam Steingold (sds) Summary: bug in pretty printer Initial Comment: The following program results in Lisp stack overflow. (defvar *my-pprint* (copy-pprint-dispatch)) (defun my-pprint (*standard-output* list) (break "my-pprint") (pprint-logical-block (*standard-output* list :prefix "(" :suffix ")") )) (set-pprint-dispatch '(cons (member foo)) 'my-pprint 0 *my- pprint*) (let ((*print-pprint-dispatch* *my-pprint*)) (pprint '(foo bar :boo 1))) Software: uname -a Darwin Saturn.local. 6.8 Darwin Kernel Version 6.8: Wed Sep 10 15:20:55 PDT 2003; root:xnu/xnu-344.49.obj~2/ RELEASE_PPC Power Macintosh powerpc (lisp-implementation-version) "2.32 (2003-12-29) (built on saturn.lan [192.168.0.10])" ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=101355&aid=873204&group_id=1355 |