Changeset 218

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

Version 81.

Files:
1 modified

Legend:

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

    r217 r218  
    366366    (COND ((NOT (= MA 377)) 
    367367           (TERPRI) (PRINC '|MA wrong on read of pattern, correct=377, actual=|) 
    368            (PRIN1 MA)))) 
     368           (PRIN1 MA) (TERPRI)))) 
    369369  ;; Check pattern read back into core, see if it's correct 
    370370  (LET ((DCHECK-AND 37777777777) (DCHECK-IOR 0)  ;Accumulate error bits here