[mcclim-cvs] CVS update: mcclim/stream-input.lisp

[Christophe Rhodes]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv5715

Modified Files:
	stream-input.lisp 
Log Message:
Rearrange pointer class hierarchy a little, according to mail message
"pointer protocol class / standard-pointer" mcclim-devel 2005-06-15.

Date: Thu Jun 16 11:27:49 2005
Author: crhodes

Index: mcclim/stream-input.lisp
diff -u mcclim/stream-input.lisp:1.42 mcclim/stream-input.lisp:1.43
--- mcclim/stream-input.lisp:1.42	Tue Feb 22 15:00:11 2005
+++ mcclim/stream-input.lisp	Thu Jun 16 11:27:49 2005
@@ -637,6 +637,13 @@
 (define-protocol-class pointer ()
   ((port :reader port :initarg :port)))
 
+;;; FIXME: I think the standard-pointer should absorb some of the
+;;; common methods that are currently entirely provided by the
+;;; backends.
+
+(defclass standard-pointer (pointer)
+  ())
+
 (defgeneric pointer-sheet (pointer))
 
 (defmethod pointer-sheet ((pointer pointer))