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))