ACL2 !>(ld "script.lisp" :ld-pre-eval-print t)

[[ log elided here ]]

ACL2 !>>(TIME$ (F-PUT-GLOBAL 'BASIC-RESULT
                             (RUN *BIG-INSTR-LIST* NIL NIL)
                             STATE))
[SGC for 39884 CONS pages..(58981 writable)..(T=40).GC finished]
[SGC off][GC for 5242 RELOCATABLE-BLOCKS pages..(T=55).GC finished]
[SGC on][SGC for 23606 CONS pages..(40005 writable)..(T=21).GC finished]
[SGC for 23606 CONS pages..(40005 writable)..(T=23).GC finished]
real time       :      5.170 secs
run-gbc time    :      3.520 secs
child run time  :      0.000 secs
gbc time        :      1.390 secs
<state>
ACL2 !>>(TIME$ (F-PUT-GLOBAL 'GUARDED-RESULT
                             (G$RUN *BIG-INSTR-LIST* NIL NIL)
                             STATE))
[SGC for 23606 CONS pages..(40016 writable)..(T=25).GC finished]
[SGC for 23606 CONS pages..(40016 writable)..(T=28).GC finished]
[SGC for 23606 CONS pages..(40016 writable)..(T=29).GC finished]
real time       :      1.980 secs
run-gbc time    :      1.160 secs
child run time  :      0.000 secs
gbc time        :      0.820 secs
<state>
ACL2 !>>(TIME$ (MV-LET (VALS ST)
                       (S$RUN *BIG-INSTR-LIST* ST NIL)
                       (LET ((STATE (F-PUT-GLOBAL 'STOBJS-RESULT
                                                  VALS STATE)))
                            (MV STATE ST))))
real time       :      0.140 secs
run-gbc time    :      0.140 secs
child run time  :      0.000 secs
gbc time        :      0.000 secs
(<state> <st>)
ACL2 !>>(EQUAL (@ BASIC-RESULT)
               (@ GUARDED-RESULT))
T
ACL2 !>>(EQUAL (@ BASIC-RESULT)
               (@ STOBJS-RESULT))
T
ACL2 !>>Bye.
 :EOF
ACL2 !>
