bug in cmulisp.lisp
Tim Moore <[email protected]>
| Newsgroups | gmane.lisp.ilisp.devel |
|---|---|
| Message-ID | <Pine.BSF.4.10.10203191632090.79254-100000@herschel.bricoworks.com> |
In def-debug-command "POP", the restart-report-function should be
passed a stream, not nil. For whatever, reason, passing nil stopped
working in 18d-pre. Here's a fix:
Index: cmulisp.lisp
===================================================================
RCS file: /cvsroot/ilisp/ILISP/cmulisp.lisp,v
retrieving revision 1.4
diff -d -u -r1.4 cmulisp.lisp
--- cmulisp.lisp 19 Oct 2001 19:00:43 -0000 1.4
+++ cmulisp.lisp 20 Mar 2002 00:17:48 -0000
@@ -67,9 +67,10 @@
(member-if
#'(lambda (restart)
(string=
- (funcall
- (conditions::restart-report-function restart)
- nil)
+ (with-output-to-string (s)
+ (funcall
+ (conditions::restart-report-function restart)
+ s))
"Return to " :end1 10))
restart-list)))
(cond ((zerop num) (car first))
Tim
_______________________________________________
Ilisp-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/ilisp-devel