Trivial build fixes

libssh2.asd

@@ -1,32 +1,29 @@
 ;;; -*- mode: Lisp; syntax: Common-Lisp; -*-
 
-(in-package :asdf)
-
-(cl:eval-when (:load-toplevel :execute)
-  (asdf:operate 'asdf:load-op 'cffi-grovel))
-
-(defsystem :libssh2
+(defsystem "libssh2"
   :description "Trivial libssh2 bindings"
   :version      "0.1"
   :author       "Oleksii Shevchuk <alxchk@gmail.com>"
   :license      "Public Domain"
-  :depends-on   (:babel
-                 :cffi
-                 :cl-fad
-                 :hu.dwim.logger
-                 :split-sequence
-                 :trivial-gray-streams
-                 :usocket)
+  :defsystem-depends-on ("cffi-grovel")
+  :depends-on   ("babel"
+                 "cffi"
+                 "cl-fad"
+                 "hu.dwim.logger"
+                 "split-sequence"
+                 "trivial-gray-streams"
+                 "usocket")
   :serial       t
   :components   ((:module "src"
                   :serial t
                   :components ((:file "package")
                                (:file "logging")
                                (:file "types")
-                               (cffi-grovel:grovel-file "libssh2-libc-cffi")
+                               (:cffi-grovel-file "libssh2-libc-cffi")
                                (:file "util")
                                (:file "libssh2-cffi")
                                (:file "streams")
                                (:file "scp")
                                (:file "sftp")
-                               (:file "solutions")))))
+                               (:file "solutions"))))
+  :in-order-to ((test-op (test-op "libssh2.test"))))

libssh2.test.asd

@@ -1,19 +1,15 @@
 ;;; -*- mode: lisp; syntax: common-lisp; indent-tabs-mode: nil -*-
 
-(in-package :asdf)
-
-(defsystem :libssh2.test
+(defsystem "libssh2.test"
   :description "cl-libssh2 tests"
   :author       "Oleksii Shevchuk <alxchk@gmail.com>"
   :license      "Public Domain"
-  :depends-on   (#:libssh2
-                 #:hu.dwim.stefil)
+  :depends-on   ("libssh2"
+                 "hu.dwim.stefil")
   :serial       t
   :components   ((:module "test"
                   :components
                   ((:file "package")
                    (:file "scp")
-                   (:file "sftp")))))
-
-(defmethod perform ((o test-op) (c (eql (find-system :libssh2.test))))
-  (funcall (intern (string '#:run-unit-tests) '#:libssh2.test)))
+                   (:file "sftp"))))
+  :perform (test-op (o c) (symbol-call :libssh2.test :run-all-tests)))

src/util.lisp

@@ -18,7 +18,7 @@ set."
   ;; add other Lisps here if necessary
   #+(or :sbcl :cmu)
   (unless (eql read-timeout write-timeout)
-    (parameter-error "Read and write timeouts for socket must be equal."))
+    (error "Read and write timeouts for socket must be equal."))
   #+:clisp
   (when read-timeout
     (socket:socket-options (usocket:socket usocket) :SO-RCVTIMEO read-timeout))