[slime-cvs] CVS slime
CVS User heller
heller at common-lisp.net
Mon Nov 2 09:20:34 UTC 2009
Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv28372
Modified Files:
ChangeLog swank-abcl.lisp swank-allegro.lisp
swank-backend.lisp swank-ccl.lisp swank-clisp.lisp
swank-cmucl.lisp swank-lispworks.lisp swank-sbcl.lisp
swank-scl.lisp swank.lisp
Log Message:
* swank.lisp (without-interrupts): Removed. No longer used.
* swank-backend.lisp (call-without-interrupts): Removed.
Update backends accoringly.
--- /project/slime/cvsroot/slime/ChangeLog 2009/11/02 07:47:02 1.1905
+++ /project/slime/cvsroot/slime/ChangeLog 2009/11/02 09:20:33 1.1906
@@ -1,5 +1,11 @@
2009-11-02 Helmut Eller <heller at common-lisp.net>
+ * swank.lisp (without-interrupts): Removed. No longer used.
+ * swank-backend.lisp (call-without-interrupts): Removed.
+ Update backends accoringly.
+
+2009-11-02 Helmut Eller <heller at common-lisp.net>
+
CCL's lap-functions don't have source-notes but the name often
has. E.g. ccl::%fixnum-truncate. Use names as last resort.
--- /project/slime/cvsroot/slime/swank-abcl.lisp 2009/10/31 08:54:46 1.75
+++ /project/slime/cvsroot/slime/swank-abcl.lisp 2009/11/02 09:20:33 1.76
@@ -183,9 +183,6 @@
;;;; Unix signals
-(defimplementation call-without-interrupts (fn)
- (funcall fn))
-
(defimplementation getpid ()
(handler-case
(let* ((runtime
--- /project/slime/cvsroot/slime/swank-allegro.lisp 2009/06/21 07:22:56 1.128
+++ /project/slime/cvsroot/slime/swank-allegro.lisp 2009/11/02 09:20:33 1.129
@@ -71,9 +71,6 @@
;;;; Unix signals
-(defimplementation call-without-interrupts (fn)
- (excl:without-interrupts (funcall fn)))
-
(defimplementation getpid ()
(excl::getpid))
--- /project/slime/cvsroot/slime/swank-backend.lisp 2009/10/31 08:54:46 1.183
+++ /project/slime/cvsroot/slime/swank-backend.lisp 2009/11/02 09:20:33 1.184
@@ -308,10 +308,6 @@
(defconstant +sigint+ 2)
-(definterface call-without-interrupts (fn)
- "Call FN in a context where interrupts are disabled."
- (funcall fn))
-
(definterface getpid ()
"Return the (Unix) process ID of this superior Lisp.")
--- /project/slime/cvsroot/slime/swank-ccl.lisp 2009/11/02 07:47:02 1.11
+++ /project/slime/cvsroot/slime/swank-ccl.lisp 2009/11/02 09:20:33 1.12
@@ -155,12 +155,6 @@
;;; Unix signals
-(defimplementation call-without-interrupts (fn)
- ;; This prevents the current thread from being interrupted, but it doesn't
- ;; keep other threads from running concurrently, so it's not an appropriate
- ;; replacement for locking.
- (ccl:without-interrupts (funcall fn)))
-
(defimplementation getpid ()
(ccl::getpid))
--- /project/slime/cvsroot/slime/swank-clisp.lisp 2009/07/30 17:05:19 1.91
+++ /project/slime/cvsroot/slime/swank-clisp.lisp 2009/11/02 09:20:33 1.92
@@ -65,28 +65,6 @@
(:documentation
"Dummy class created so that swank.lisp will compile and load."))
-;; #+#.(cl:if (cl:find-package "LINUX") '(and) '(or))
-;; (progn
-;; (defmacro with-blocked-signals ((&rest signals) &body body)
-;; (ext:with-gensyms ("SIGPROCMASK" ret mask)
-;; `(multiple-value-bind (,ret ,mask)
-;; (linux:sigprocmask-set-n-save
-;; ,linux:SIG_BLOCK
-;; ,(do ((sigset (linux:sigset-empty)
-;; (linux:sigset-add sigset (the fixnum (pop signals)))))
-;; ((null signals) sigset)))
-;; (linux:check-res ,ret 'linux:sigprocmask-set-n-save)
-;; (unwind-protect
-;; (progn , at body)
-;; (linux:sigprocmask-set ,linux:SIG_SETMASK ,mask nil)))))
-
-;; (defimplementation call-without-interrupts (fn)
-;; (with-blocked-signals (#.linux:SIGINT) (funcall fn))))
-
-;; #+#.(cl:if (cl:find-package "LINUX") '(or) '(and))
-(defimplementation call-without-interrupts (fn)
- (funcall fn))
-
(let ((getpid (or (find-symbol "PROCESS-ID" :system)
;; old name prior to 2005-03-01, clisp <= 2.33.2
(find-symbol "PROGRAM-ID" :system)
--- /project/slime/cvsroot/slime/swank-cmucl.lisp 2009/08/10 19:30:22 1.213
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp 2009/11/02 09:20:33 1.214
@@ -1478,9 +1478,6 @@
(defimplementation default-directory ()
(namestring (ext:default-directory)))
-(defimplementation call-without-interrupts (fn)
- (sys:without-interrupts (funcall fn)))
-
(defimplementation getpid ()
(unix:unix-getpid))
--- /project/slime/cvsroot/slime/swank-lispworks.lisp 2009/10/20 16:13:02 1.134
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp 2009/11/02 09:20:34 1.135
@@ -169,9 +169,6 @@
(declare (ignore args))
(mp:process-interrupt self handler)))))
-(defimplementation call-without-interrupts (fn)
- (error "Don't use without-interrupts -- consider without-slime-interrupts instead."))
-
(defimplementation getpid ()
#+win32 (win32:get-current-process-id)
#-win32 (system::getpid))
--- /project/slime/cvsroot/slime/swank-sbcl.lisp 2009/10/19 23:23:45 1.253
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp 2009/11/02 09:20:34 1.254
@@ -282,11 +282,6 @@
(return (sb-bsd-sockets:socket-accept socket))
(sb-bsd-sockets:interrupted-error ()))))
-(defimplementation call-without-interrupts (fn)
- (declare (type function fn))
- (sb-sys:without-interrupts (funcall fn)))
-
-
;;;; Support for SBCL syntax
--- /project/slime/cvsroot/slime/swank-scl.lisp 2009/08/10 19:30:22 1.34
+++ /project/slime/cvsroot/slime/swank-scl.lisp 2009/11/02 09:20:34 1.35
@@ -1315,9 +1315,6 @@
(defimplementation pathname-to-filename (pathname)
(ext:unix-namestring pathname nil))
-(defimplementation call-without-interrupts (fn)
- (funcall fn))
-
(defimplementation getpid ()
(unix:unix-getpid))
--- /project/slime/cvsroot/slime/swank.lisp 2009/11/02 00:24:52 1.670
+++ /project/slime/cvsroot/slime/swank.lisp 2009/11/02 09:20:34 1.671
@@ -457,11 +457,6 @@
(check-type msg string)
`(call-with-retry-restart ,msg #'(lambda () , at body)))
-;;; FIXME: Can this be removed with the introduction of
-;;; WITH/WITHOUT-SLIME-INTERRUPTS.
-(defmacro without-interrupts (&body body)
- `(call-without-interrupts (lambda () , at body)))
-
(defmacro destructure-case (value &rest patterns)
"Dispatch VALUE to one of PATTERNS.
A cross between `case' and `destructuring-bind'.
More information about the slime-cvs
mailing list