Changeset 13744

Timestamp:

May 29, 2010, 8:43:44 AM (15 years ago)

Author:

gz

Message:

In %break-message, *current-process* might be nil

File:

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

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

@@ -576 +576 @@
       (format *error-output* "~&~A"
               (get-output-stream-string s)))
-    (format *error-output* ", in process ~a(~d).~%" (process-name *current-process*) (process-serial-number *current-process*))
+    (if *current-process*
+      (format *error-output* ", in process ~a(~d).~%" (process-name *current-process*) (process-serial-number *current-process*))
+      (format *error-output* ", in an uninitialized process~%"))
   (force-output *error-output*)))
                                         ; returns NIL