Permalink
Browse files

DEATH TO SERIAL-SELECT! >:(

  • Loading branch information...
1 parent a4aeb1b commit 212bd52ab3652d33b569549adc7eec7be7c7ed27 Josh Marchán committed Oct 13, 2009
Showing with 1 addition and 9 deletions.
  1. +1 −1 src/package.lisp
  2. +0 −8 src/select.lisp
View
@@ -32,4 +32,4 @@
;; other stuff
#:+maximum-buffer-size+
;; demuxing
- #:select #:serial-select))
+ #:select))
View
@@ -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")

0 comments on commit 212bd52

Please sign in to comment.