Changeset 217


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

Version 80.

File:
1 edited

Legend:

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

    r216 r217  
    415415    (PROCESS-ALLOW-SCHEDULE)))
    416416
     417(DEFUN DC-FAULT-CLEAR NIL
     418  (DC-EXEC DC-FAULT-CLEAR 0 0 0 0 NIL 0)
     419  (DO () ((NOT (BIT-TEST 1_8 (PHYS-MEM-READ DC-STS-ADR))))
     420    (PROCESS-ALLOW-SCHEDULE)))
     421
    417422
    418423;;; Compare pattern, set special variables if lose
Note: See TracChangeset for help on using the changeset viewer.