Changeset 9179


Ignore:
Timestamp:
Apr 18, 2008, 9:56:44 AM (11 years ago)
Author:
mb
Message:

When a thread needs access to a shared resource print a message telling the user how to give that thread terminal access.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/linux-files.lisp

    r8978 r9179  
    10951095    (let* ((request (make-shared-resource-request *current-process*)))
    10961096      (when verbose
    1097         (format t "~%~%;;;~%;;; ~a requires access to ~a~%;;;~%~%"
    1098                 *current-process* (shared-resource-name resource)))
     1097        (format t "~%~%;;;~%;;; ~a requires access to ~a~%;;; Type (:y ~D) to yield control to this thread.~%;;;~%"
     1098                *current-process* (shared-resource-name resource)
     1099                (process-serial-number *current-process*)))
    10991100      (with-lock-grabbed ((shared-resource-lock resource))
    11001101        (append-dll-node request (shared-resource-requestors resource)))
Note: See TracChangeset for help on using the changeset viewer.