X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fassemfile.lisp;h=837b239bbb578b351026edfd2e6ab2c5f3fe95bc;hb=891cee29c305e6c161ba5fe06fc013f915dba262;hp=591acfb2a54b2105bb14cbe541b792a4a9e61634;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/assembly/assemfile.lisp b/src/assembly/assemfile.lisp
index 591acfb..837b239 100644
--- a/src/assembly/assemfile.lisp
+++ b/src/assembly/assemfile.lisp
@@ -188,8 +188,8 @@
   (multiple-value-bind (name options)
       (if (atom name&options)
           (values name&options nil)
-        (values (car name&options)
-                (cdr name&options)))
+          (values (car name&options)
+                  (cdr name&options)))
     (let ((regs (mapcar (lambda (var) (apply #'parse-reg-spec var)) vars)))
       (if *emit-assembly-code-not-vops-p*
           (emit-assemble name options regs code)