Changeset 14483

Timestamp:

Dec 14, 2010, 6:51:06 PM (10 years ago)

Author:

rme

Message:

In ABNORMAL-APPLICATION-EXIT, print lisp version information.

File:

• trunk/source/level-1/l1-readloop-lds.lisp (modified) (1 diff)

trunk/source/level-1/l1-readloop-lds.lisp

@@ -476 +476 @@
   (ignore-errors
     (print-call-history)
+    (write-line (lisp-implementation-version) *debug-io*)
     (force-output *debug-io*)
     (quit -1))