0.8.9.42

	MORE IGNORANCE - add missing IGNORE declaration in code/target-thread

	Also delete the standalone asdf-install executable, due to it
	being basically a bit rubbish anyway

diff --git a/contrib/asdf-install/Makefile b/contrib/asdf-install/Makefile
index 68926ad..c822c11 100644 (file)
--- a/contrib/asdf-install/Makefile
+++ b/contrib/asdf-install/Makefile
@@ -1,13 +1,2 @@
 SYSTEM=asdf-install
-EXTRA_INSTALL_TARGETS=asdf-install-install
-
 include ../asdf-module.mk
-
-asdf-install-install: asdf-install
-       if test -f $(BUILD_ROOT)$(INSTALL_ROOT)/bin/sbcl-asdf-install ; then \
-         mv $(BUILD_ROOT)$(INSTALL_ROOT)/bin/sbcl-asdf-install $(BUILD_ROOT)$(INSTALL_ROOT)/bin/sbcl-asdf-install.old ; \
-       fi
-# KLUDGE: mv rather than cp because keeping asdf-install in that
-# directory interferes with REQUIRE, and this is done before the tar 
-# in ../asdf-module.mk.  Better solutions welcome.
-       mv asdf-install $(BUILD_ROOT)$(INSTALL_ROOT)/bin/sbcl-asdf-install

diff --git a/contrib/asdf-install/asdf-install.asd b/contrib/asdf-install/asdf-install.asd
index 91e7282..ec66a9c 100644 (file)
--- a/contrib/asdf-install/asdf-install.asd
+++ b/contrib/asdf-install/asdf-install.asd
@@ -6,27 +6,12 @@
 (in-package #:asdf-install-system)
 (require 'sb-executable)
 
-;;; this is appalling misuse of asdf.  please don't treat it as any
-;;; kind of example.  this shouldn't be a compile-op, or if it is, should
-;;; define output-files properly instead of leaving it be the fasl
-(defclass exe-file (cl-source-file) ())
-(defmethod perform :after ((o compile-op) (c exe-file))
-  (sb-executable:make-executable
-   (make-pathname :name "asdf-install"
-                 :type nil
-                 :defaults (component-pathname c))
-   (output-files o c)
-   :initial-function "RUN"))
-
-(defmethod perform ((o load-op) (c exe-file)) nil)
-
 (defsystem asdf-install
   :depends-on (sb-posix sb-bsd-sockets)
   :version "0.2"
   #+sb-building-contrib :pathname
   #+sb-building-contrib "SYS:CONTRIB;ASDF-INSTALL;"
   :components ((:file "defpackage")
-              (:exe-file "loader" :depends-on ("installer"))
               (:file "installer" :depends-on ("defpackage"))))
               
 (defmethod perform :after ((o load-op) (c (eql (find-system :asdf-install))))

diff --git a/contrib/asdf-install/loader.lisp b/contrib/asdf-install/loader.lisp
deleted file mode 100644 (file)
index a28f005..0000000
--- a/contrib/asdf-install/loader.lisp
+++ /dev/null
@@ -1,15 +0,0 @@
-(in-package :cl-user)
-
-(eval-when (:load-toplevel)
-  (unless (find-package 'asdf)
-    (require 'asdf))
-  (let ((asdf::*verbose-out* nil))
-    (require 'asdf-install)))
-
-(defun run ()
-  (handler-case
-      (apply #'asdf-install:install (cdr *posix-argv*))
-    (error (c)
-      (format *error-output* "Install failed due to error:~%  ~A~%" c)
-      (sb-ext:quit :unix-status 1))))
-

diff --git a/src/code/target-thread.lisp b/src/code/target-thread.lisp
index 1d38f08..510cd32 100644 (file)
--- a/src/code/target-thread.lisp
+++ b/src/code/target-thread.lisp
@@ -383,6 +383,7 @@ thread is not the foreground thread"
 (defun debugger-wait-until-foreground-thread (stream)
   "Returns T if thread had been running in background, NIL if it was
 interactive."
+  (declare (ignore stream))
   (prog1
       (with-mutex ((session-lock *session*))
        (not (member (current-thread-id) 

diff --git a/version.lisp-expr b/version.lisp-expr
index 5cdc010..629bd11 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; 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.9.41"
+"0.8.9.42"