ports: add [INVOKE-]WITH-PORT function and macro

1 files changed, 55 insertions, 53 deletions

diff --git a/package.lisp b/package.lisp
index 7d09f7a3..f7bceafa 100644
--- a/package.lisp
+++ b/package.lisp
@@ -287,60 +287,60 @@
   (:use)
   ;;
   (:import-from :clim-lisp
-   #:and 
-   #:boolean 
-   #:character 
-   #:close 
-   #:complex 
-   #:float 
-   #:fundamental-binary-input-stream 
-   #:fundamental-binary-output-stream 
-   #:fundamental-binary-stream 
-   #:fundamental-character-input-stream 
-   #:fundamental-character-output-stream 
-   #:fundamental-character-stream 
-   #:fundamental-input-stream 
-   #:fundamental-output-stream 
-   #:fundamental-stream 
-   #:input-stream-p 
-   #:integer 
-   #:interactive-stream-p 
-   #:keyword 
+   #:and
+   #:boolean
+   #:character
+   #:close
+   #:complex
+   #:float
+   #:fundamental-binary-input-stream
+   #:fundamental-binary-output-stream
+   #:fundamental-binary-stream
+   #:fundamental-character-input-stream
+   #:fundamental-character-output-stream
+   #:fundamental-character-stream
+   #:fundamental-input-stream
+   #:fundamental-output-stream
+   #:fundamental-stream
+   #:input-stream-p
+   #:integer
+   #:interactive-stream-p
+   #:keyword
    #:member
    #:nil
-   #:null 
-   #:number 
-   #:open-stream-p 
-   #:or 
-   #:output-stream-p 
-   #:pathname 
-   #:ratio 
-   #:rational 
-   #:real 
-   #:sequence 
-   #:stream-advance-to-column 
+   #:null
+   #:number
+   #:open-stream-p
+   #:or
+   #:output-stream-p
+   #:pathname
+   #:ratio
+   #:rational
+   #:real
+   #:sequence
+   #:stream-advance-to-column
    #:stream-clear-input
    #:stream-clear-output
-   #:stream-element-type 
-   #:stream-finish-output 
-   #:stream-force-output 
-   #:stream-fresh-line 
-   #:stream-line-column 
-   #:stream-listen 
-   #:stream-peek-char 
-   #:stream-read-byte 
-   #:stream-read-char 
-   #:stream-read-char-no-hang 
-   #:stream-read-line 
-   #:stream-start-line-p 
-   #:stream-terpri 
-   #:stream-unread-char 
-   #:stream-write-byte 
-   #:stream-write-char 
-   #:stream-write-string 
-   #:streamp 
-   #:string 
-   #:symbol 
+   #:stream-element-type
+   #:stream-finish-output
+   #:stream-force-output
+   #:stream-fresh-line
+   #:stream-line-column
+   #:stream-listen
+   #:stream-peek-char
+   #:stream-read-byte
+   #:stream-read-char
+   #:stream-read-char-no-hang
+   #:stream-read-line
+   #:stream-start-line-p
+   #:stream-terpri
+   #:stream-unread-char
+   #:stream-write-byte
+   #:stream-write-char
+   #:stream-write-string
+   #:streamp
+   #:string
+   #:symbol
    #:t)
   ;;
   (:export
@@ -1605,7 +1605,7 @@
   (:export
    ;; I forget where the wheel symbols come from. They aren't in the
    ;; Franz guide. Are they from Lispworks, or did McCLIM invent them?
-   #:+pointer-wheel-up+                 
+   #:+pointer-wheel-up+
    #:+pointer-wheel-down+
    #:+pointer-wheel-left+
    #:+pointer-wheel-right+
@@ -1634,7 +1634,7 @@
    #:toggle-button-view                 ;class
    #:+toggle-button-view+               ;constant
    #:sheet-pointer-cursor)
-  
+
    ;;; x11 color names - some are not in the spec - mikemac
   (:export
    #:+snow+ #:+ghost-white+ #:+ghostwhite+ #:+white-smoke+
@@ -1909,7 +1909,7 @@
    #:list-pane-items
    #:output-record-baseline
    #:merging-dead-keys
-   
+
    #:draw-output-border-over
    #:draw-output-border-under
    #:make-bordered-output-record
@@ -2008,6 +2008,8 @@
    #:set-sheet-pointer-cursor
    #:synthesize-pointer-motion-event
    #:window-manager-focus-event
+   #:with-port
+   #:invoke-with-port
    ;; Text-style
    #:text-style-to-font
    #:text-style-character-width