; 
; 
; File: /root/erlisp/erlisp-cmucl/erlisp/src/process.lisp

; In: DEFUN CHECK-SYSTEM-MESSAGES

;   ((AND # #) (REST M))
; Error: Illegal function call.
; 
;   ((:TIMEOUT 0) NIL)
; Error: Illegal function call.
; 
;   ((AND # #) (REST M))
; Error: Illegal function call.
; 
;   ((:TIMEOUT 0) NIL)
; Error: Illegal function call.
; 
; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER
                                         '(PCL:SLOT-ACCESSOR :GLOBAL
                                           CHECKING-SYSTEM-MESSAGES ...)
                                         ...): 
; Converted CHECK-SYSTEM-MESSAGES.

; 
; 
; File: /root/erlisp/erlisp-cmucl/erlisp/src/process.lisp

; In: DEFUN CHECK-SYSTEM-MESSAGES

;   (CURRENT-PROCESS)
; Note: Deleting unreachable code.
; 
;   (RECEIVE-WITH-MATCHER (COND-MATCHER M) (# #) (# NIL))
; Note: Deleting unreachable code.
; 
;   'DONE
; Note: Deleting unreachable code.
; 
;   (RECEIVE-WITH-MATCHER (COND-MATCHER M) (# #) (# NIL))
; Note: Deleting unreachable code.
; 
;   (REVERSE-LINK (SECOND MSG) :LINK-TYPE (THIRD MSG))
; Note: Deleting unreachable code.
; 
;   (CURRENT-PROCESS)
; Note: Deleting unreachable code.
; 
;   (EQ (FIRST MSG) 'LINK-REQUEST)
; Note: Deleting unreachable code.
; 
;   (ERROR "Linked process died. My turn.")
; Note: Deleting unreachable code.
; 
;   (RECEIVE-WITH-MATCHER (COND-MATCHER M) (# #) (# NIL))
; Note: Deleting unreachable code.
; 
;   (EQ (FIRST MSG) 'LINK-KILL)
; Note: Deleting unreachable code.
; 
;   (NOT MSG)
; --> IF 
; ==>
;   MSG
; Note: Deleting unreachable code.
; 
;   (CONSP MSG)
; Note: Deleting unreachable code.
;