X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fassemfile.lisp;h=424b3a2583ccc5f2898c1ef013d16cd381b4d958;hb=7dfa54273d2ebc6c2be9a39ab5cd6df639d340c9;hp=0e54b8cb5b2b887c69ef815e5b60705611283dc7;hpb=7044d862b9d82dc086b2ccb59dc4b372cd731b4e;p=sbcl.git

diff --git a/src/assembly/assemfile.lisp b/src/assembly/assemfile.lisp
index 0e54b8c..424b3a2 100644
--- a/src/assembly/assemfile.lisp
+++ b/src/assembly/assemfile.lisp
@@ -116,7 +116,7 @@
     ,@(unless (eq (reg-spec-kind reg) :res)
         `(:target ,(reg-spec-temp reg)))))
 
-(defun emit-vop (name options vars)
+(defun emit-assemble-vop (name options vars)
   (let* ((args (remove :arg vars :key #'reg-spec-kind :test #'neq))
          (temps (remove :temp vars :key #'reg-spec-kind :test #'neq))
          (results (remove :res vars :key #'reg-spec-kind :test #'neq))
@@ -190,4 +190,4 @@
     (let ((regs (mapcar (lambda (var) (apply #'parse-reg-spec var)) vars)))
       (if *emit-assembly-code-not-vops-p*
           (emit-assemble name options regs code)
-          (emit-vop name options regs)))))
+          (emit-assemble-vop name options regs)))))