Ignore:
Timestamp:
May 29, 2010, 3:43:44 PM (9 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-readloop-lds.lisp

    r13675 r13744  
    576576      (format *error-output* "~&~A"
    577577              (get-output-stream-string s)))
    578     (format *error-output* ", in process ~a(~d).~%" (process-name *current-process*) (process-serial-number *current-process*))
     578    (if *current-process*
     579      (format *error-output* ", in process ~a(~d).~%" (process-name *current-process*) (process-serial-number *current-process*))
     580      (format *error-output* ", in an uninitialized process~%"))
    579581  (force-output *error-output*)))
    580582                                        ; returns NIL
Note: See TracChangeset for help on using the changeset viewer.