;;; kind of example. this shouldn't be a compile-op, or if it is, should
;;; define output-files properly instead oif leaving it be the fasl
(defclass exe-file (cl-source-file) ())
-(defmethod perform ((o compile-op) (c exe-file))
- (call-next-method)
+(defmethod perform :after ((o compile-op) (c exe-file))
(sb-executable:make-executable
(make-pathname :name "asdf-install"
:type nil
:depends-on (sb-posix sb-bsd-sockets)
:version "0.2"
:components ((:file "defpackage")
- (exe-file "loader")
- (:file "installer")))
+ (:exe-file "loader" :depends-on ("installer"))
+ (:file "installer" :depends-on ("defpackage"))))
(defmethod perform :after ((o load-op) (c (eql (find-system :asdf-install))))
(provide 'asdf-install))
(let ((s (make-instance 'inet-socket :type :stream :protocol :tcp))
(host (url-host url))
(port (url-port url)))
+ (declare (ignore port))
(socket-connect
s (car (host-ent-addresses (get-host-by-name (url-host (or *proxy* url)))))
(url-port (or *proxy* url)))
(make-pathname :directory
`(:relative ,(subseq tar 0 pos-slash)))
source)))
+ (declare (ignore dummy))
(loop for asd in (directory
(make-pathname :name :wild :type "asd"))
do (let ((target (merge-pathnames
-
(in-package :cl-user)
-(eval-when (:compile-toplevel :load-toplevel :execute)
+
+(eval-when (:load-toplevel)
(require 'asdf)
- (asdf:operate 'asdf:load-op 'asdf-install :verbose nil))
+ (require 'asdf-install))
(defun run ()
(handler-case
(apply #'asdf-install:install (cdr *posix-argv*))
(error (c)
- (princ "Install failed due to error:") (terpri)
- (princ c) (terpri)
- (quit :unix-status 1))))
+ (format *error-output* "Install failed due to error:~% ~A~%" c)
+ (sb-ext:quit :unix-status 1))))
-;(quit)
\ No newline at end of file
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.2.26"
+"0.8.2.27"