pinterface / cl-ftp Goto Github PK

[9]>  (ql:quickload "ftp")
To load "ftp":
  Load 1 ASDF system:
    asdf
  Install 3 Quicklisp releases:
    cl-ftp split-sequence usocket
; Fetching #<URL "http://beta.quicklisp.org/archive/usocket/2019-12-27/usocket-0.8.3.tgz">
; 83.84KB
==================================================
85,851 bytes in 2.18 seconds (38.41KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/archive/split-sequence/2019-05-21/split-sequence-v2.0.0.tgz">
; 10.09KB
==================================================
10,329 bytes in 0.01 seconds (1680.68KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/archive/cl-ftp/2015-06-08/cl-ftp-20150608-http.tgz">
; 9.15KB
==================================================
9,367 bytes in 0.01 seconds (1144.05KB/sec)
; Loading "ftp"

*** - Error while trying to load definition for system split-sequence from pathname C:\Users\konovv\quicklisp\dists\quicklisp\software\split-sequence-v2.0.0\split-sequence.asd:
      MAKE-INSTANCE: некорректная пара ключевое слово/значение :IF-FEATURE, (:OR :SBCL :ABCL) в списке аргументов.
      Разрешенные ключевые слова: (:NAME :VERSION :DESCRIPTION :LONG-DESCRIPTION :IN-ORDER-TO :DO-FIRST
      :PARENT :PATHNAME :AROUND-COMPILE :ENCODING :PROPERTIES :TYPE)
Имеются следующие варианты продолжения:
SKIP           :R1      пропустить (DEFSYSTEM SPLIT-SEQUENCE AUTHOR ...)
RETRY          :R2      retry (DEFSYSTEM SPLIT-SEQUENCE AUTHOR ...)
STOP           :R3      бросить загрузку файла C:\Users\konovv\quicklisp\dists\quicklisp\software\split-sequence-v2.0.0\split-sequence.asd
REINITIALIZE-SOURCE-REGISTRY-AND-RETRY :R4 Retry finding system split-sequence after reinitializing the source-registry.
ABORT          :R5      Give up on "ftp"
ABORT          :R6      Прервать главный цикл
Break 1 ASDF0[10]>```
thanks in advance! :)

(defmethod connect-to-server ((conn ftp-connection))
  (with-ftp-connection-slots (conn)
    (unless (and hostname port (integerp port) (stringp hostname))
      (error "You must specify a hostname string and an integer port"))
    (when (and (slot-boundp conn 'socket) (streamp (socket-stream socket)))
      (close (socket-stream socket)))
    (setf socket (socket-connect hostname port))
    (unless socket
      (error "Error connecting to ~A:~A" hostname port))
    (when (and username password (stringp username) (stringp password))
      (expect-code-or-lose conn 220)
      (send-raw-line conn (format nil "USER ~A" username))
      (multiple-value-bind (data code) (receive-response conn :block t)
        (case code
          (331 (send-raw-line conn (format nil "PASS ~A" password)))
          (230)
          (otherwise (raise-ftp-error code (data-to-string data))))))
    (values)))