projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sb-simple-streams: signal an error for bad stream classes in OPEN
[sbcl.git]
/
contrib
/
sb-simple-streams
/
impl.lisp
diff --git
a/contrib/sb-simple-streams/impl.lisp
b/contrib/sb-simple-streams/impl.lisp
index
07732f3
..
3512edf
100644
(file)
--- a/
contrib/sb-simple-streams/impl.lisp
+++ b/
contrib/sb-simple-streams/impl.lisp
@@
-713,7
+713,11
@@
(remf options :input-handle)
(remf options :output-handle)
(make-instance class :lisp-stream
(remf options :input-handle)
(remf options :output-handle)
(make-instance class :lisp-stream
- (apply #'open-fd-stream filespec options))))))
+ (apply #'open-fd-stream filespec options)))
+ (t (error "Don't know how to handle the stream class ~A"
+ (etypecase class
+ (symbol (find-class class t))
+ (class class)))))))
(declaim (inline read-byte read-char read-char-no-hang unread-char))
(declaim (inline read-byte read-char read-char-no-hang unread-char))