/usr/share/acl2-8.0dfsg/books/hacking/dynamic-make-event-test.lisp is in acl2-books-source 8.0dfsg-1.
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 | (in-package "ACL2")
; Modification by Matt K. after v4-3: Removed :load-compiled-file :comp, which
; was part of all four include-book forms just below, in support of provisional
; certification. Presumably the indicate books have already been compiled by
; now, anyhow.
(include-book "defcode" :ttags ((defcode)))
(include-book "rewrite-code")
(include-book "redefun")
(include-book "dynamic-make-event")
#|
dynamic-make-event-test.lisp
----------------------------
By Peter Dillinger, ca. 2009
This is a regression test for the dynamic-make-event book.
|#
(program)
(set-state-ok t)
(defttag dynamic-make-event-test) ; need to do some evil stuff
; Tweak defun so that if we try to defun THE-MAGIC-NAME, then it
; will instead expand to a definition of SOME-OTHER-NAME
(progn+touchable
:all
(redefun+rewrite
defuns-fn
(:carpat %body%
:repl (if (eq (caar def-lst) 'the-magic-name)
(dynamic-make-event-fn '(defun some-other-name (x) (1+ x))
event-form
state)
%body%)
:vars (%body%))))
(defttag nil) ; end of evil stuff
; Now try it out ...
(defun the-magic-name (x) (1- x))
; should become (defun some-other-name (x) (1+ x))
; now we use some-other-name, to be sure it's now defined
(defun testing-function (x) (some-other-name x))
|