From 76dca859f9a4c5e5575a3097d3d3a6f96d781258 Mon Sep 17 00:00:00 2001 From: bd Date: Wed, 16 Apr 2025 16:40:03 -0400 Subject: remove tabs --- src/emit.lisp | 4 ++-- src/parse.lisp | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) (limited to 'src') 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) -- cgit v1.2.3