File: embeddable-event-forms.lisp

package info (click to toggle)
acl2 7.2dfsg-3
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 198,968 kB
  • ctags: 182,300
  • sloc: lisp: 2,415,261; ansic: 5,675; perl: 5,577; xml: 3,576; sh: 3,255; cpp: 2,835; makefile: 2,440; ruby: 2,402; python: 778; ml: 763; yacc: 709; csh: 355; php: 171; lex: 162; tcl: 44; java: 24; asm: 23; haskell: 17
file content (22 lines) | stat: -rw-r--r-- 616 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
; Started by David Rager; extended by Matt Kaufmann and anyone else who cares to
; do so.

(in-package "ACL2")

(defmacro assign$ (name value)
  `(with-output
    :off summary
    (make-event (pprogn (f-put-global
                         (quote ,name)
                         ,value
                         state)
                        (value '(value-triple nil))))))

(defmacro cw$ (comment)
  `(value-triple (cw ,comment)))

(defmacro observe$ (&rest args)
  `(with-output
    :off summary
    (make-event (pprogn (observation 'top-level ,@args)
                        (value '(value-triple :invisible))))))