# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1254277572 0
# Node ID a753cb82efb6e3628e8c37376cff8b757bc65dc3
# Parent  0f493d710e1b2397f7757c6b904c66cf24d30b18
(semantic-gcc-setup): Replace runtime use of CL function `remove-if-not'.

diff -r 0f493d710e1b -r a753cb82efb6 lisp/cedet/semantic/bovine/gcc.el
--- a/lisp/cedet/semantic/bovine/gcc.el	Wed Sep 30 02:25:43 2009 +0000
+++ b/lisp/cedet/semantic/bovine/gcc.el	Wed Sep 30 02:26:12 2009 +0000
@@ -171,15 +171,18 @@
              (gcc-include-c++-ver (expand-file-name ver gcc-include-c++))
              (gcc-include-c++-ver-host (expand-file-name host gcc-include-c++-ver)))
         (setq c-include-path
-              (remove-if-not 'file-accessible-directory-p
-                             (list "/usr/include" gcc-include)))
+              ;; Replace cl-function remove-if-not.
+              (delq nil (mapcar (lambda (d)
+                                  (if (file-accessible-directory-p d) d))
+                                (list "/usr/include" gcc-include))))
         (setq c++-include-path
-              (remove-if-not 'file-accessible-directory-p
-                             (list "/usr/include"
-                                   gcc-include
-                                   gcc-include-c++
-                                   gcc-include-c++-ver
-                                   gcc-include-c++-ver-host)))))
+              (delq nil (mapcar (lambda (d)
+                                  (if (file-accessible-directory-p d) d))
+                                (list "/usr/include"
+                                      gcc-include
+                                      gcc-include-c++
+                                      gcc-include-c++-ver
+                                      gcc-include-c++-ver-host))))))
 
     ;;; Fix-me: I think this part might have been a misunderstanding, but I am not sure.
     ;; If this option is specified, try it both with and without prefix, and with and without host