Skip to content
Permalink
Browse files

Add (defgeneric retrieve-file) for ABCL compatibility

  • Loading branch information...
ralcantaraperez authored and Pixie committed May 29, 2014
1 parent 3a2f757 commit c0f77bab4b23278e3f54bf4a3bf730365ec5695b
Showing with 3 additions and 1 deletion.
  1. +1 −1 ftp.asd
  2. +2 −0 ftp.lisp
@@ -7,7 +7,7 @@
(asdf:defsystem ftp
:name "cl-ftp"
:author "Matthew Danish <mdanish@andrew.cmu.edu>"
:version "1.5.0"
:version "1.5.1"
:maintainer "pinterface <pix@kepibu.org>"
:licence "MIT/X style"
:description "FTP library"
@@ -412,6 +412,8 @@ without ending up with a CR/CR/LF sequence."
(send-cwd-command conn base-dir))
(send-cwd-command conn orig-dir))))

(defgeneric retrieve-file (conn remote-filename local-file &key type rest &allow-other-keys))

(defmethod retrieve-file ((conn ftp-connection) (remote-filename string) local-filename
&key (type :binary) (rest nil) (if-exists :error))
(with-open-file (local-stream local-filename

0 comments on commit c0f77ba

Please sign in to comment.
You can’t perform that action at this time.