X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=67ac1239581e530bc8be3bd955cc07f0d074028a;hb=ec066d84dd46611428943d152749b3891a3f4b7c;hp=06067d1e0aef177d5104cc857e33d8f8e5742ffe;hpb=2912f5f6c2acb2da3b9fcc0f5afd1ca89782a9f8;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index 06067d1..67ac123 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -216,7 +216,7 @@
 
 	(dolist (kind '(:variable :function :type))
 	  (let ((summary (mapcar #'undefined-warning-name
-				 (remove kind undefs :test-not #'eq
+				 (remove kind undefs :test #'neq
 					 :key #'undefined-warning-kind))))
 	    (when summary
 	      (if (eq kind :variable)