# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1458906783 0
# Node ID cf844914bdee13523e71b73b066bbea66f6793f9
# Parent  203653ce4866cb945e4b5a6a5efb5da83fa2bf90
Move scratch garbage into the scratch file

diff -r 203653ce4866 -r cf844914bdee src/wam.lisp
--- a/src/wam.lisp	Fri Mar 25 11:51:13 2016 +0000
+++ b/src/wam.lisp	Fri Mar 25 11:53:03 2016 +0000
@@ -382,19 +382,3 @@
         instructions)
   (values))
 
-
-(defparameter p
-  '(p :z
-      (h :z :w)
-      (f :w)))
-
-
-(defparameter *wam* (make-wam))
-
-(dump-heap-full (wam-heap *wam*))
-
-(run *wam* (parse p))
-
-(dump-wam-full *wam*)
-(dump-wam-around *wam* 12 3)
-