/usr/share/acl2-6.3/books/make-event/local-requires-skip-check.lisp is in acl2-books-source 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 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 | ; 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.
; This book should certify in spite of the fact that identity-macro is not
; around on the include-book pass of certify-book, yet we are supplying
; :check-expansion arguments. (We omit some :check-expansion arguments too,
; just for fun.) Inspection of the .cert file shows that it should only
; contain an entry for the last (8th) form in this file; see
; local-requires-skip-check-include.lisp.
(in-package "ACL2")
(local
(defmacro identity-macro (x)
x))
(local
(make-event
'(defun test1 (x) (identity-macro x))
:check-expansion
t)
)
(local
(make-event
'(defun test2 (x) (identity-macro x))
:check-expansion
(defun test2 (x) (identity-macro x)))
)
(local
(make-event
'(defun test3 (x) (identity-macro x)))
)
(encapsulate
()
(local
(make-event
'(defun test4 (x) (identity-macro x))
:check-expansion
t)
)
(defun test5 (x) x))
(encapsulate
()
(local
(make-event
'(defun test6 (x) (identity-macro x))
:check-expansion
(defun test6 (x) (identity-macro x)))
)
(defun test7 (x) x))
(encapsulate
()
(local
(make-event
'(defun test8 (x) (identity-macro x)))
)
(defun test9 (x) x))
(include-book "misc/eval" :dir :system)
(must-fail
(local
(make-event
'(defun test10 (x) (identity-macro x))
:check-expansion
(defun test10 (x) (cons x x)))
))
|