;;; -*- Mode:LISP; Package:USER -*- (defun foo () (with-open-file (f1 "jb:k;trap-handlers.kfasl#16") (with-open-file (f2 "jb:k;trap-handlers.kfasl#>") (let ((i1 0) (i2 0)) (do () (()) (let ((c1 (read-byte f1)) (c2 (read-byte f2))) (incf i1) (incf i2) (unless (= c1 c2) (if (and (= c1 4) (= c2 6)) (progn (dotimes (i 6) (read-char f1)) (incf i1 6) (dotimes (i 8) (read-char f2)) (incf i2 8)) (format t "~%Differ in characters ~d ~d. c1: ~c, c2: ~c" i1 i2 (int-char c1) (int-char c2)))))))))) trap-handlers.kfasl#16 code for read-page-fault-handler-return-saved PA8a C`4@l2@n0@f.@h,@LD@ba*@@(@P&@LD@a$@T"@LD@!a @)`@A@AT@@&A$@"@ @(@* B6Cp`8@@4`@2l@0n@.f@,h@,D (defun discode () (let ((code (symbol-name '|PA8a C`4@l2@n0@f.@h,@LD@ba*@@(@P&@LD@a$@T"@LD@!a @)`@A@AT@@&A$@"@ @(@* B6Cp`8@@4`@2l@0n@.f@,h@,D|))) (let ((len (length code))) (print len) (do ((i 0 (+ 8 i))) ((>= i len)) (print (nc:dis (+ (char-int (char code i)) (ash (char-int (char code (+ i 1))) 8) (ash (char-int (char code (+ i 2))) 16) (ash (char-int (char code (+ i 3))) 24) (ash (char-int (char code (+ i 4))) 32) (ash (char-int (char code (+ i 5))) 40) (ash (char-int (char code (+ i 6))) 48) (ash (char-int (char code (+ i 7))) 56))))))))