AeroNotix/gist:dfbe806788a6d460b735

Created September 23, 2014 21:48

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/AeroNotix/dfbe806788a6d460b735.js"></script>
Save AeroNotix/dfbe806788a6d460b735 to your computer and use it in GitHub Desktop.

Download ZIP

Revisions

AeroNotix created this gist Sep 23, 2014.

gistfile1.lisp

-Original file line number
+Diff line change
@@ -0,0 +1,8 @@
+    (defun make-id-flipper ()
+      (let ((state nil)
+            (id nil))
+        (lambda (client)
+          (if state
+              (return-stream-id client id)
+              (setf id (next-stream-id client)))
+          (setf state (not state)))))