Permalink
Browse files

adjust dot stream classes for sbcl

  • Loading branch information...
1 parent 8319e7d commit c07eb0a38f7682af8e7addc5b7bedade29df4d2d @lisp committed Jan 17, 2012
Showing with 6 additions and 1 deletion.
  1. +6 −1 dot/dot.lisp
View
@@ -85,7 +85,9 @@
;;; setf.dot:stream
;;; setf.dot:constructor
-(defclass delegate-stream (#-lispworks stream #+lispworks stream:fundamental-stream)
+(defclass delegate-stream (#+ccl stream
+ #+lispworks stream:fundamental-stream
+ #+sbcl sb-gray:fundamental-stream)
((stream
:initform (error "stream is required")
:initarg :stream
@@ -128,6 +130,9 @@
(defmethod stream-line-column ((stream stream))
(stream-column stream))
+#+sbcl
+(defmethod sb-GRAY:STREAM-LINE-LENGTH ((stream delegate-stream))
+ nil)
(defClass setf.dot:context ()

0 comments on commit c07eb0a

Please sign in to comment.