- (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))