/usr/share/acl2-7.2dfsg/books/make-event/local-requires-skip-check-include.lisp is in acl2-books-source 7.2dfsg-3.
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 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | ; Copyright (C) 2013, Regents of the University of Texas
; Written by Matt Kaufmann
; License: A 3-clause BSD license. See the LICENSE file distributed with ACL2.
; Check part of the certificate's :expansion-alist for
; local-requires-skip-check.lisp.
(in-package "ACL2")
(local (include-book "misc/file-io" :dir :system))
(local (include-book "local-requires-skip-check"))
(include-book "misc/eval" :dir :system)
(must-succeed
(er-let* ((forms (read-list "local-requires-skip-check.cert" 'top state)))
(let ((erp (not (equal (car (last (cadr (member-eq :expansion-alist
forms))))
'(9 RECORD-EXPANSION
(must-fail
(local
(make-event
'(defun test10 (x) (identity-macro x))
:check-expansion
(defun test10 (x) (cons x x)))
))
(WITH-OUTPUT :OFF :ALL
(VALUE-TRIPLE 'T)))))))
(mv erp nil state))))
|