port-protocol.lisp 726 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
;;;
;;; 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