diff options
| author | bd <bdunahu@operationnull.com> | 2025-04-16 16:40:03 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-04-16 16:40:03 -0400 |
| commit | 76dca859f9a4c5e5575a3097d3d3a6f96d781258 (patch) | |
| tree | c129a6d326a10f40e1a53144313d397b71eefba7 /src | |
| parent | 768ebe5c796d85d0262260c9a0b1f7aec28b8844 (diff) | |
remove tabs
Diffstat (limited to 'src')
| -rw-r--r-- | src/emit.lisp | 4 | ||||
| -rw-r--r-- | src/parse.lisp | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/src/emit.lisp b/src/emit.lisp index f73d9be..85214c2 100644 --- a/src/emit.lisp +++ b/src/emit.lisp @@ -48,8 +48,8 @@ concatenated with TYPE." (defun x (&rest lst) (append lst - ;; add a halt to the end of the instructions list - (list (r "QUOT" (rr 0) (rr 0) (rr 0))))) + ;; add a halt to the end of the instructions list + (list (r "QUOT" (rr 0) (rr 0) (rr 0))))) (defun r (mnemonic s1 s2 d) (concatenate diff --git a/src/parse.lisp b/src/parse.lisp index bd8a1f8..4e9cd5c 100644 --- a/src/parse.lisp +++ b/src/parse.lisp @@ -54,7 +54,7 @@ (:lambda (e) (parse-integer (esrap:text (cddr e)) :radix 16))) (esrap:defrule integer (and (esrap:? sign) (or binary-number octal-number - hexadecimal-number decimal-number)) + hexadecimal-number decimal-number)) (:destructure (s i) (if (and s (string= s "-")) (- i) i))) @@ -137,8 +137,8 @@ DESTRUCTURE-PATTERN is the list of non-terminals on the right side of the gramma `(esrap:defrule ,name (and ,(read-from-string (format nil "~A-m" name)) ,@(util:riffle (make-list pattern-size :initial-element 'space) destructure-pattern)) (:destructure (m ,@(util:riffle spaces vars)) - (declare (ignore ,@spaces)) - (list ,type-id m ,@(mapcar (lambda (x) (or (nth x vars) ''(emit::rr 0))) order)))))) + (declare (ignore ,@spaces)) + (list ,type-id m ,@(mapcar (lambda (x) (or (nth x vars) ''(emit::rr 0))) order)))))) (defrule-instr r-type-1 'emit::r (1 2 0) register register) (defrule-instr r-type-2 'emit::r (0 1 2) register register) |