Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

DEATH TO SERIAL-SELECT! >:(

  • Loading branch information...
commit 212bd52ab3652d33b569549adc7eec7be7c7ed27 1 parent a4aeb1b
@zkat authored
Showing with 1 addition and 9 deletions.
  1. +1 −1  src/package.lisp
  2. +0 −8 src/select.lisp
View
2  src/package.lisp
@@ -32,4 +32,4 @@
;; other stuff
#:+maximum-buffer-size+
;; demuxing
- #:select #:serial-select))
+ #:select))
View
8 src/select.lisp
@@ -67,14 +67,6 @@ reserved for individual SELECT clauses."
`(setf ,repeat-counter ,num-clauses
,index (random ,num-clauses)))))))))))
-(defmacro serial-select (&body clauses)
- (unless (null clauses)
- (let ((main-clauses (remove :else clauses :key 'clause-type)))
- `(loop
- ,@(mapcar 'wrap-select-clause main-clauses)
- ,@(awhen (find :else clauses :key 'clause-type)
- (list (wrap-select-clause it)))))))
-
(defun clause-type (clause)
(cond ((when (symbolp (car clause))
(or (string-equal (car clause) "t")
Please sign in to comment.
Something went wrong with that request. Please try again.