1
(in-package "conditions")
3
(defun compare-semantics (file condition)
5
(load (format nil "~A.lisp" file))
6
(push (with-output-to-string (s) (princ condition s)) results)
7
(compile-file (format nil "~A.lisp" file))
8
(load (format nil "~A.o" file))
9
(push (with-output-to-string (s) (princ condition s)) results)
10
(print (reverse results))
b'\\ No newline at end of file'