From: Daniel Barlow <dan@telent.net>
Date: Wed, 14 Apr 2004 22:38:45 +0000 (+0000)
Subject: 0.8.9.42
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e791de3ae4440919e43307a90895c161d3f3b1bc;p=sbcl.git

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
--- 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
--- 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
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
--- 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
--- 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"