in ftpd: use signature calculus to get access to scsh's OPEN-OUTPUT-FILE instead of relying on the import order

This commit is contained in:
interp 2002-09-30 10:42:34 +00:00
parent fc6f2c5a1a
commit db6b607d0f
1 changed files with 2 additions and 2 deletions

View File

@ -651,8 +651,8 @@
;; FTP server ;; FTP server
(define-structure ftpd ftpd-interface (define-structure ftpd ftpd-interface
(open (modify scsh (hide char-set:whitespace)) (open (modify scheme (hide open-output-file))
scheme (modify scsh (hide char-set:whitespace))
conditions handle signals conditions handle signals
structure-refs structure-refs
handle-fatal-error handle-fatal-error