From pk@kaulushaikara.cs.tut.fi Wed Apr 13 18:28:25 EDT 1994 Article: 12539 of comp.lang.lisp Xref: glinda.oz.cs.cmu.edu comp.lang.lisp:12539 Newsgroups: comp.lang.lisp Path: honeydew.srv.cs.cmu.edu!fs7.ece.cmu.edu!europa.eng.gtefsd.com!howland.reston.ans.net!pipex!sunic!news.funet.fi!news.cs.tut.fi!news.cs.tut.fi!pk From: pk@kaulushaikara.cs.tut.fi (Kellom{ki Pertti) Subject: Re: Source-code debuggers In-Reply-To: pk@kaulushaikara.cs.tut.fi's message of Wed, 6 Apr 1994 09: 05:24 GMT Message-ID: Followup-To: comp.lang.lisp Sender: usenet@news.cs.tut.fi (#Kotilo NEWS system ) Nntp-Posting-Host: kaulushaikara.cs.tut.fi Organization: Tampere University of Technology References: Date: Mon, 11 Apr 1994 11:37:24 GMT Lines: 14 >>>>> "pk" == Kellom{ki Pertti writes: pk> There is an article about it in a recent pk> Lisp Pointers: Psd -- a Portable Scheme Debugger, Lisp pk> Pointers, VI(1), 1993 For the WWW types, the article is also available as hypertext. -- Pertti Kellom\"aki (TeX format) # These opinions are mine, Tampere Univ. of Technology # ALL MINE ! Software Systems Lab # (but go ahead and use them, if you like) Article 8741 of comp.lang.scheme: Xref: glinda.oz.cs.cmu.edu comp.lang.scheme:8741 Newsgroups: comp.lang.scheme Path: honeydew.srv.cs.cmu.edu!nntp.club.cc.cmu.edu!news.mic.ucla.edu!library.ucla.edu!agate!howland.reston.ans.net!EU.net!sunic!news.funet.fi!news.cs.tut.fi!news.cs.tut.fi!pk From: pk@kaulushaikara.cs.tut.fi (Kellom{ki Pertti) Subject: Patch to Psd Message-ID: Sender: usenet@news.cs.tut.fi (#Kotilo NEWS system ) Nntp-Posting-Host: kaulushaikara.cs.tut.fi Organization: Tampere University of Technology Distribution: comp Date: Wed, 4 May 1994 09:38:16 GMT Lines: 29 A while back Kaelin Colclasure (kaelin@bridge.com) reported troubles with Psd and named let. It turned out that the problem was not with named let but with string->list. Below is a patch to correct the problem. -- pertti ---------------------------------------------------------------------- *** 1.7 1994/02/07 10:08:25 --- primitives.scm 1994/05/04 09:26:41 *************** *** 770,776 **** (,set-car! (2 ,(assert 1 pair?))) (,set-cdr! (2 ,(assert 1 pair?))) (,string (&rest ,(assert 'all char?))) ! (,string->list (1 ,(assert 1 string))) (,string->number (1 ,(assert 1 string?)) (2 ,(assert 1 string?) --- 770,776 ---- (,set-car! (2 ,(assert 1 pair?))) (,set-cdr! (2 ,(assert 1 pair?))) (,string (&rest ,(assert 'all char?))) ! (,string->list (1 ,(assert 1 string?))) (,string->number (1 ,(assert 1 string?)) (2 ,(assert 1 string?) -- Pertti Kellom\"aki (TeX format) # These opinions are mine, Tampere Univ. of Technology # ALL MINE ! Software Systems Lab # (but go ahead and use them, if you like)