Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Suppress compilation warning in websocket-test.el

  • Loading branch information...
commit 9d8794aa2315025950f479f71501de6c3b2e06fd 1 parent 4d81f4f
@tkf tkf authored
Showing with 9 additions and 8 deletions.
  1. +9 −8 websocket-test.el
View
17 websocket-test.el
@@ -25,16 +25,17 @@
;; http://github.com/ohler/ert, it also comes with Emacs 24 and above.
(require 'ert)
-(require 'cl)
+(require 'websocket)
+(eval-when-compile (require 'cl))
(defun websocket-test-get-filtered-response (outputs)
- (let ((packet-data nil)
- (websocket
- (make-websocket :conn "fake-conn"
- :filter (lambda (packet) (push packet packet-data))
- :close-callback (lambda (not-called) (assert nil))
- :url "ws://foo/bar"
- :v75 nil)))
+ (let* ((packet-data nil)
+ (websocket
+ (make-websocket :conn "fake-conn"
+ :filter (lambda (packet) (push packet packet-data))
+ :close-callback (lambda (not-called) (assert nil))
+ :url "ws://foo/bar"
+ :v75 nil)))
(dolist (output outputs)
(websocket-outer-filter websocket output))
(nreverse packet-data)))
Please sign in to comment.
Something went wrong with that request. Please try again.