/usr/share/acl2-6.3/books/make-event/read-from-file.cert is in acl2-books-certs 6.3-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 | (IN-PACKAGE "ACL2")
"ACL2 Version 6.3"
:BEGIN-PORTCULLIS-CMDS
:END-PORTCULLIS-CMDS
:EXPANSION-ALIST
((2 RECORD-EXPANSION (MAKE-EVENT (ER-LET* ((FILE-CONTENTS (READ-LIST (OUR-MERGE-PATHNAMES (CBD) "read-from-file-data.lsp") (QUOTE TOP-LEVEL) STATE))) (VALUE (CONS (QUOTE DEFCONST) (CONS (QUOTE *OBTAINED-FROM-FILE*) (CONS (CONS (QUOTE QUOTE) (CONS FILE-CONTENTS (QUOTE NIL))) (QUOTE NIL))))))) (DEFCONST *OBTAINED-FROM-FILE* (QUOTE (3 A (X Y))))) (5 RECORD-EXPANSION (LOCAL (MAKE-EVENT (ER-LET* ((FILE-CONTENTS (READ-LIST (OUR-MERGE-PATHNAMES (CBD) "read-from-file-data.lsp") (QUOTE TOP-LEVEL) STATE))) (VALUE (CONS (QUOTE DEFCONST) (CONS (QUOTE *OBTAINED-FROM-FILE-AGAIN*) (CONS (CONS (QUOTE QUOTE) (CONS FILE-CONTENTS (QUOTE NIL))) (QUOTE NIL)))))) :CHECK-EXPANSION T)) (LOCAL (VALUE-TRIPLE :ELIDED))) (7 RECORD-EXPANSION (ENCAPSULATE NIL (MAKE-EVENT (ER-LET* ((FILE-CONTENTS (READ-LIST (OUR-MERGE-PATHNAMES (CBD) "read-from-file-data.lsp") (QUOTE TOP-LEVEL) STATE))) (VALUE (CONS (QUOTE LOCAL) (CONS (CONS (QUOTE DEFUN) (CONS (QUOTE FOO) (CONS (QUOTE NIL) (CONS (CONS (QUOTE QUOTE) (CONS FILE-CONTENTS (QUOTE NIL))) (QUOTE NIL))))) (QUOTE NIL))))) :CHECK-EXPANSION T)) (ENCAPSULATE NIL (RECORD-EXPANSION (MAKE-EVENT (ER-LET* ((FILE-CONTENTS (READ-LIST (OUR-MERGE-PATHNAMES (CBD) "read-from-file-data.lsp") (QUOTE TOP-LEVEL) STATE))) (VALUE (CONS (QUOTE LOCAL) (CONS (CONS (QUOTE DEFUN) (CONS (QUOTE FOO) (CONS (QUOTE NIL) (CONS (CONS (QUOTE QUOTE) (CONS FILE-CONTENTS (QUOTE NIL))) (QUOTE NIL))))) (QUOTE NIL))))) :CHECK-EXPANSION T) (MAKE-EVENT (ER-LET* ((FILE-CONTENTS (READ-LIST (OUR-MERGE-PATHNAMES (CBD) "read-from-file-data.lsp") (QUOTE TOP-LEVEL) STATE))) (VALUE (CONS (QUOTE LOCAL) (CONS (CONS (QUOTE DEFUN) (CONS (QUOTE FOO) (CONS (QUOTE NIL) (CONS (CONS (QUOTE QUOTE) (CONS FILE-CONTENTS (QUOTE NIL))) (QUOTE NIL))))) (QUOTE NIL))))) :CHECK-EXPANSION (LOCAL (DEFUN FOO NIL (QUOTE (3 A (X Y))))))))))
NIL
(("/usr/share/acl2-6.3/books/make-event/read-from-file.lisp" "read-from-file" "read-from-file" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 209104841) ("/usr/share/acl2-6.3/books/misc/file-io.lisp" "misc/file-io" "file-io" ((:SKIPPED-PROOFSP) (:AXIOMSP) (:TTAGS)) . 1412340802))
70260787
|