Re: run-lisp patch

[Paul L. I. <aea...@gm...>]

Sorry, I can't tell if the patch I tried to send actually made it
anywhere, so here it is inline:

Index: run-lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /cvsroot/clocc/clocc/bin/run-lisp,v
retrieving revision 1.15
diff -u -w -r1.15 run-lisp
--- run-lisp=0914 Dec 2001 19:06:01 -0000=091.15
+++ run-lisp=0929 Jul 2005 21:56:44 -0000
@@ -304,7 +304,7 @@
                     (multiple-value-setq (.res .cond)
                        (ignore-errors (progn $todo
                                         (fresh-line) (finish-output))))
-                    (unix:unix-exit (if .cond 1 0))))"
+                    (unix:unix-exit (if .cond (progn (describe .cond) 1) 0=
))))"
           test -z "$image" || image=3D"-core ${image}.core";
           exec ${CMUCL-lisp} -noinit ${image} -eval "$todo"
           ;;