diff options
author | colin <colin@cicadas.surf> | 2024-06-01 10:30:48 -0700 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2024-06-01 10:30:48 -0700 |
commit | ee76182976c0f5e45ab7e2adb792bf016fde07f2 (patch) | |
tree | a088b85de6579942a26561f72a903d472f7f2615 /fetch-wasm-instrs.lisp | |
parent | c169d4fd94660039be481e41d740983beaa066ae (diff) |
Update: instr fetcher to output to src/raw-instrs.lisp
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) |