Commit 365de6ac authored by Alastair Bridgewater's avatar Alastair Bridgewater
Browse files

port/port-protocol: The generic functions that a PORT should handle.

  * Most or all of these will be implemented by BASIC-PORT, but we
have a standing policy of separating out the GF definitions from
the class definitions.
parent c6b6ecab
...@@ -42,6 +42,7 @@ ...@@ -42,6 +42,7 @@
"port/port" "port/port"
"sheet/mirror-functions" "sheet/mirror-functions"
"sheet/mirrored-sheet-mixin" "sheet/mirrored-sheet-mixin"
"port/port-protocol"
"backend/clx/medium")) "backend/clx/medium"))
(load (compile-file file))) (load (compile-file file)))
......
;;;
;;; nq-clim/port/port-protocol
;;;
;;; Part of CLIM II 9.2.
;;;
(cl:defpackage :nq-clim/port/port-protocol
(:use :cl
:nq-clim/port/port)
(:export
"PORT-SERVER-PATH"
"PORT-NAME"
"PORT-TYPE"
"PORT-PROPERTIES"
"DESTROY-PORT"))
(cl:in-package :nq-clim/port/port-protocol)
(defgeneric port-server-path (port))
(defgeneric port-name (port))
(defgeneric port-type (port))
;; The &OPTIONAL parameter on these two functions is an extension to
;; CLIM, but one which makes sense by parallel with the use of GETF.
(defgeneric port-properties (port indicator &optional default))
(defgeneric (setf port-properties) (property port indicator &optional default))
(defgeneric destroy-port (port))
;;; EOF
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment