Changeset 217

Show
Ignore:
Timestamp:
08/18/11 05:00:51 (3 years ago)
Author:
rjs
Message:

Version 80.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/lisp/lmcons/dcheck.lisp

    r216 r217  
    412412  (DO () ((NOT (BIT-TEST 1_8 (PHYS-MEM-READ DC-STS-ADR)))) 
    413413    (PROCESS-ALLOW-SCHEDULE))) 
     414 
     415(DEFUN DC-FAULT-CLEAR NIL 
     416  (DC-EXEC DC-FAULT-CLEAR 0 0 0 0 NIL 0) 
     417  (DO () ((NOT (BIT-TEST 1_8 (PHYS-MEM-READ DC-STS-ADR)))) 
     418    (PROCESS-ALLOW-SCHEDULE))) 
    414419 
    415420;;; Compare pattern, set special variables if lose