Remove traces of stuff that's been moved to ASDF/DRIVER.

diff --git a/filesystem/pathnames.lisp b/filesystem/pathnames.lisp
index 59a463a..3bdfe5b 100644 (file)
--- a/filesystem/pathnames.lisp
+++ b/filesystem/pathnames.lisp
@@ -66,7 +66,7 @@ of the directory of the given pathname"
   "DIRECTORY being the directory component of a pathname,
 output to OUT a portable representation of it,
 erroring out if some source of non-portability is found"
-  (with-output-stream (out)
+  (with-output (out)
     (labels ((d2s (x)
               (dolist (c x)
                 (unless (portable-pathname-string-component-p c)
@@ -96,19 +96,19 @@ erroring out if some source of non-portability is found"
         (error "Invalid directory ~S" directory))))))
 
 (defun portable-pathname-name-output (name &key out)
-  (with-output-stream (out)
+  (with-output (out)
     (unless (portable-pathname-string-component-p name)
       (error "Non-portable pathname name ~S" name))
     (write-string name out)))
 
 (defun portable-pathname-type-output (type &key out)
-  (with-output-stream (out)
+  (with-output (out)
     (unless (portable-pathname-type-component-p type)
       (error "Non-portable pathname type ~S" type))
     (write-string type out)))
 
 (defun portable-pathname-output (pathname &key out (allow-absolute t) (allow-relative t))
-  (with-output-stream (out)
+  (with-output (out)
     (let* ((p (pathname pathname))
           (directory (pathname-directory p))
           (name (pathname-name p))

diff --git a/package.lisp b/package.lisp
index a25c137..07e0cf8 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -21,7 +21,6 @@
    #:aif2 #:alist->hash-table #:association
    #:base-char-p #:binary-heap #:binomial-heap #:boolean
    #:cached-size-mixin
-   #:call-with-input-stream #:call-with-output-stream
    #:check-not-empty
    #:clobber-file-if-different #:clobber-file-with-vector
    #:combinationp #:conc-gensym ;; #:multiple-value-compose #:multiple-value-compose/2
@@ -80,7 +79,6 @@
    #:vector-container-ref #:with-buffered-file-contents
    #:with-input #:with-magic-special-variables ;; #:with-gensyms
    #:with-magic-special-variables-safely #:with-msv #:with-msv*
-   #:with-output-stream #:with-input-stream
    #:with-user-output-file #:xtime #:_
    #:but-last-char ;; #:first-char #:last-char
    ;; #:proper-list-p