Fixing sykobloopers

zkat · Oct 10, 2009 · 601569b · 601569b
1 parent 3c29d69
commit 601569b
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 5 deletions.
diff --git a/src/channels.lisp b/src/channels.lisp
@@ -272,10 +272,6 @@ Ideally, these would be faster than regular channels. In reality, they're not. I
 there might be a way to speed these guys up while keeping the same behavior in the interface,
 but for now, they're about 100x slower, not to mention non-portable."))
 
-#-sbcl
-(defmethod initialize-instance ((channel cas-channel) &key)
-  (error "CAS channels are only available in SBCL right now."))
-
 (defmethod channel-value ((channel cas-channel))
   (svref (channel-vector channel) 0))
 (defmethod channel-readers ((channel cas-channel))

diff --git a/src/package.lisp b/src/package.lisp
@@ -20,7 +20,7 @@
    #:task-name #:task-status #:task-thread
    ;;; Channels
    ;; classes
-   #:abstract-channel #:fast-channel #:channel #:buffered-channel
+   #:abstract-channel #:cas-channel #:channel #:buffered-channel
    #:stack-channel #:queue-channel #:bounded-channel
    #:unbounded-channel
    ;; generic funs