X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fassemfile.lisp;h=ac8ab34479ecb4bb87aa84a93c2e1c2deb2d1aa3;hb=037b95d81ad246aca72388ce7315df972e9545f5;hp=191df4e0183cf15c38ef5261f41472448f31df24;hpb=5e9825374b74df450d8cfb2c005e6bef30197734;p=sbcl.git

diff --git a/src/assembly/assemfile.lisp b/src/assembly/assemfile.lisp
index 191df4e..ac8ab34 100644
--- a/src/assembly/assemfile.lisp
+++ b/src/assembly/assemfile.lisp
@@ -120,9 +120,9 @@
 	`(:target ,(reg-spec-temp reg)))))
 
 (defun emit-vop (name options vars)
-  (let* ((args (remove :arg vars :key #'reg-spec-kind :test-not #'eq))
-	 (temps (remove :temp vars :key #'reg-spec-kind :test-not #'eq))
-	 (results (remove :res vars :key #'reg-spec-kind :test-not #'eq))
+  (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))
 	 (return-style (or (cadr (assoc :return-style options)) :raw))
 	 (cost (or (cadr (assoc :cost options)) 247))
 	 (vop (make-symbol "VOP")))
@@ -164,7 +164,7 @@
 		  ,@(apply #'append
 			   (mapcar #'cdr
 				   (remove :ignore call-temps
-					   :test-not #'eq :key #'car))))
+					   :test #'neq :key #'car))))
 	 ,@(remove-if (lambda (x)
 			(member x '(:return-style :cost)))
 		      options