From 7ad6093d69afa90de243e72868f0d463dcd5eae7 Mon Sep 17 00:00:00 2001 From: bd Date: Thu, 17 Apr 2025 19:39:06 -0400 Subject: Add new push/pop test case, ensure generated files end in .rv --- src/util.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/util.lisp') 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." -- cgit v1.2.3