run-lisp patch (again)

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

My last attempt left something to be desired.  I have tried to derive
the proper way print error conditions from slime.

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=0930 Jul 2005 04:01:27 -0000
@@ -304,7 +304,12 @@
                     (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=20
+                                          (progn=20
+                                            (princ .cond)=20
+                                            (fresh-line) (finish-output)=
=20
+                                            1)=20
+                                         0))))"
           test -z "$image" || image=3D"-core ${image}.core";
           exec ${CMUCL-lisp} -noinit ${image} -eval "$todo"
           ;;