diff options
Diffstat (limited to 'fetch-wasm-instrs.lisp')
-rw-r--r-- | fetch-wasm-instrs.lisp | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/fetch-wasm-instrs.lisp b/fetch-wasm-instrs.lisp index 4735214..677f857 100644 --- a/fetch-wasm-instrs.lisp +++ b/fetch-wasm-instrs.lisp @@ -94,14 +94,24 @@ :when instr :collect (make-instr instr code type)))) -(format t "Fetching all instructions from~% ~a~%" +) +(format t "Fetching all instructions from~% ~a~%" + +source-url+) (let ((instrs (get-all-instructions))) - (format t "Writing to disk in ./instrs.sexp~%") - (with-open-file (out "instrs.sexp" + (format t "Writing to disk in ./src/raw-instrs.lisp~%") + (with-open-file (out "src/raw-instrs.lisp" :direction :output :if-exists :supersede :if-does-not-exist :create) - (write instrs :stream out))) + (princ " +(defpackage #:sarcasm.raw-instrs + (:use :cl) + (:export #:raw-instrs)) + +(in-package #:sarcasm.raw-instrs) +(defparameter raw-instrs + '" out) + (write instrs :stream out) + (princ ")" out))) (format t "DONE~%") (uiop:quit) |