Remove mapcan to remove runtime dependence on cl.

ahyatt · Jul 5, 2012 · 89b9afe · 89b9afe
1 parent a31f0a8
commit 89b9afe
Showing 1 changed file with 6 additions and 7 deletions.
diff --git a/websocket.el b/websocket.el
@@ -459,13 +459,12 @@ of populating the list of server extensions to WEBSOCKET."
         (when (setq pos (match-end 1))
           (setq extensions (append extensions (split-string
                                                (match-string 1 output) ", ?")))))
-      (let ((extra-extensions
-             (mapcan (lambda (ext) (when (not
-                                     (member
-                                      (first (split-string ext "; ?"))
-                                      (websocket-extensions websocket)))
-                                (list (first (split-string ext "; ?")))))
-                     extensions)))
+      (let ((extra-extensions))
+        (dolist (ext extensions)
+          (when (not (member
+                      (first (split-string ext "; ?"))
+                      (websocket-extensions websocket)))
+            (add-to-list 'extra-extensions (first (split-string ext "; ?")))))
         (when extra-extensions
           (error "Non-requested extensions returned by server: %s"
                  extra-extensions)))