Changeset 218


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

Version 81.

File:
1 edited

Legend:

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

    r217 r218  
    368368    (COND ((NOT (= MA 377))
    369369           (TERPRI) (PRINC '|MA wrong on read of pattern, correct=377, actual=|)
    370            (PRIN1 MA))))
     370           (PRIN1 MA) (TERPRI))))
    371371  ;; Check pattern read back into core, see if it's correct
    372372  (LET ((DCHECK-AND 37777777777) (DCHECK-IOR 0)  ;Accumulate error bits here
Note: See TracChangeset for help on using the changeset viewer.