diff options
| author | bd <bdunahu@operationnull.com> | 2025-04-17 19:39:06 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-04-17 19:39:06 -0400 |
| commit | 7ad6093d69afa90de243e72868f0d463dcd5eae7 (patch) | |
| tree | bca1b4259ccdcfd4ac8d188383a922b88efaed1a /src | |
| parent | 3b8a36443a6d83b54fc698a774ef50705f36dcb9 (diff) | |
Add new push/pop test case, ensure generated files end in .rv
Diffstat (limited to 'src')
| -rw-r--r-- | src/util.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/util.lisp b/src/util.lisp index d0e32c4..14e5d74 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -22,7 +22,7 @@ (defun generate-file-name (file) "Given a .asm file, generates an identically named .rv file." - (subseq file 0 (- (length file) 4))) + (concatenate 'string (subseq file 0 (- (length file) 3)) "rv")) (defun format-as-binary (num len) "Formats NUM as a binary number, and pads to LEN with zeros." |