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:
		
							parent
							
								
									fc6f2c5a1a
								
							
						
					
					
						commit
						db6b607d0f
					
				|  | @ -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 | ||||||
|  |  | ||||||
		Loading…
	
		Reference in New Issue
	
	 interp
						interp