headers
CVS User heller | 1 Oct 2010 11:30

CVS slime

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv21431

Modified Files:
	ChangeLog slime.el 
Log Message:
Save result in kill ring for M-- C-x C-e.
For C-u C-x C-e set mark before inserting.

* slime.el (slime-eval-save): New function.
(slime-eval-print): Set mark before inserting.
(slime-interactive-eval): Use it.

--- /project/slime/cvsroot/slime/ChangeLog	2010/09/22 19:17:35	1.2144
+++ /project/slime/cvsroot/slime/ChangeLog	2010/10/01 09:30:34	1.2145
 <at>  <at>  -1,3 +1,12  <at>  <at> 
+2010-10-01  Helmut Eller  <heller <at> common-lisp.net>
+
+	Save result in kill ring for M-- C-x C-e.
+	For C-u C-x C-e set mark before inserting.
+
+	* slime.el (slime-eval-save): New function.
+	(slime-eval-print): Set mark before inserting.
+	(slime-interactive-eval): Use it.
+
 2010-09-22  Stas Boukarev  <stassats <at> gmail.com>

 	* swank.lisp (eval-for-emacs): Send (:abort condition) where
--- /project/slime/cvsroot/slime/slime.el	2010/09/22 19:17:35	1.1340
+++ /project/slime/cvsroot/slime/slime.el	2010/10/01 09:30:34	1.1341
(Continue reading)

Permalink | Reply | 0 comments |
headers
CVS User heller | 1 Oct 2010 11:30

CVS slime

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv21469

Modified Files:
	ChangeLog slime.el 
Log Message:
Don't use indent-sexp for macroexpanded code.
indent-sexp is potentially slow and usually redundant.

* slime.el (slime-initialize-macroexpansion-buffer): Don't use
indent-sexp.
(slime-eval-macroexpand-inplace): Avoid indent-sexp but
use slime-insert-indented.

--- /project/slime/cvsroot/slime/ChangeLog	2010/10/01 09:30:34	1.2145
+++ /project/slime/cvsroot/slime/ChangeLog	2010/10/01 09:30:43	1.2146
 <at>  <at>  -1,5 +1,15  <at>  <at> 
 2010-10-01  Helmut Eller  <heller <at> common-lisp.net>

+	Don't use indent-sexp for macroexpanded code.
+	indent-sexp is potentially slow and usually redundant.
+
+	* slime.el (slime-initialize-macroexpansion-buffer): Don't use
+	indent-sexp.
+	(slime-eval-macroexpand-inplace): Avoid indent-sexp but
+	use slime-insert-indented.
+
+2010-10-01  Helmut Eller  <heller <at> common-lisp.net>
+
 	Save result in kill ring for M-- C-x C-e.
(Continue reading)

Permalink | Reply | 0 comments |
headers
CVS User heller | 2 Oct 2010 13:16

CVS slime

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv8101

Modified Files:
	ChangeLog slime.el swank.lisp 
Log Message:
Rename slime-macro/compiler-macro-expand-1 => slime-expand-1

* slime.el (slime-expand-1): Renamed from
slime-macro/compiler-macro-expand-1.
(slime-expand-1-inplace): Renamed from
slime-macro/compiler-macro-expand-1-inplace.

* swank.lisp (swank-expand-1): Renamed from
swank-macro/compiler-macro-expand-1.
(swank-expand): Renamed from swank-macro/compiler-macro-expand.
(expand-1): Renamed from macro/compiler-macro-expand-1.
(expand): Renamed from macro/compiler-macro-expand.

--- /project/slime/cvsroot/slime/ChangeLog	2010/10/01 09:30:43	1.2146
+++ /project/slime/cvsroot/slime/ChangeLog	2010/10/02 11:16:54	1.2147
 <at>  <at>  -1,3 +1,18  <at>  <at> 
+2010-10-02  Helmut Eller  <heller <at> common-lisp.net>
+
+	Rename slime-macro/compiler-macro-expand-1 => slime-expand-1
+
+	* slime.el (slime-expand-1): Renamed from
+	slime-macro/compiler-macro-expand-1.
+	(slime-expand-1-inplace): Renamed from
+	slime-macro/compiler-macro-expand-1-inplace.
(Continue reading)

Permalink | Reply | 0 comments |
headers
CVS User nsiivola | 7 Oct 2010 19:15

CVS slime

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv19896

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
SBCL: null *log-output* when saving core

	Hanging on to a *log-output* from a previous image is bad on SBCL
	at least: it is initialized to an FD-STREAM, which cannot be
	reused from one image to another.

	Deal with this by using sb-ext:*save-hooks* to clear the
        stream.

--- /project/slime/cvsroot/slime/ChangeLog	2010/10/02 11:16:54	1.2147
+++ /project/slime/cvsroot/slime/ChangeLog	2010/10/07 17:15:07	1.2148
 <at>  <at>  -1,3 +1,13  <at>  <at> 
+2010-10-07  Nikodemus Siivola  <nikodemus <at> random-state.net>
+
+	Hanging on to a *log-output* from a previous image is bad on SBCL
+	at least: it is initialized to an FD-STREAM, which cannot be
+	reused from one image to another.
+
+	Deal with this by using sb-ext:*save-hooks* to clear the stream.
+
+	* swank-sbcl.lisp (deinit-log-output): New function.
+
 2010-10-02  Helmut Eller  <heller <at> common-lisp.net>
(Continue reading)

Permalink | Reply | 0 comments |
headers
CVS User crhodes | 8 Oct 2010 11:03

CVS slime

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv19842

Modified Files:
	ChangeLog slime.el swank-backend.lisp swank.lisp 
Log Message:
add richer location information to the position arg in compile-string-for-emacs

R's source location recording infrastructure works with line/column offsets
rather than with character offsets, so to get the right srcrefs associated
with some string source we need to communicate line and column information
from the source buffer.  Unfortunately, only the emacs side can do that -- in
principle, the R side has no direct access to the source file at all.  This
means a protocol change, converting the position argument in
swank:compile-string-for-emacs to a list of <position>s in the slime
source location grammar.  At present, pass in both :position and :line
kinds, and have swank:compile-string-for-emacs extract just the :position for
passing on to swank-compile-string.

--- /project/slime/cvsroot/slime/ChangeLog	2010/10/07 17:15:07	1.2148
+++ /project/slime/cvsroot/slime/ChangeLog	2010/10/08 09:03:24	1.2149
 <at>  <at>  -1,3 +1,19  <at>  <at> 
+2010-10-08  Christophe Rhodes  <csr21 <at> cantab.net>
+
+	Pass more detailed source location information to
+	swank:compile-string-for-emacs.  Motivated by R's source location
+	needs (where srcrefs are line/column based).
+
+	* slime.el (slime-compile-string): Generate :line location format
+	from start-offset, passing it through to
(Continue reading)

Permalink | Reply | 0 comments |
headers
CVS User rtoy | 10 Oct 2010 01:02

CVS slime

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv8210

Modified Files:
	ChangeLog swank-backend.lisp swank-cmucl.lisp swank-rpc.lisp 
Log Message:
Add CODEPOINT-LENGTH function to return the number of codepoints in a
string.  Needed to make sure that Emacs and Lisp agree on the length
of a string.  Emacs wants codepoints and some lisps give code units.

--- /project/slime/cvsroot/slime/ChangeLog	2010/10/08 09:03:24	1.2149
+++ /project/slime/cvsroot/slime/ChangeLog	2010/10/09 23:02:32	1.2150
 <at>  <at>  -1,3 +1,16  <at>  <at> 
+2010-10-09  Raymond Toy  <toy.raymond <at> gmail.com>
+
+	* swank-cmucl.lisp (codepoint-length): Implement codepoint-length
+	to return the number of codepoints in cmucl's utf-16 strings.
+
+	* swank-backend.lisp (:swank-backend): Export codepoint-length. 
+	(codepoint-length): definterface codepoint-length.  Default is to
+	use LENGTH.
+
+	* swank-rpc.lisp (write-message): Call
+	swank-backend:codepoint-length to get the correct length for
+	emacs. 
+
 2010-10-08  Christophe Rhodes  <csr21 <at> cantab.net>

 	Pass more detailed source location information to
--- /project/slime/cvsroot/slime/swank-backend.lisp	2010/10/08 09:03:24	1.202
(Continue reading)

Permalink | Reply | 0 comments |
headers
CVS User alendvai | 15 Oct 2010 18:09

CVS slime/contrib

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv22560

Modified Files:
	swank-fuzzy.lisp 
Log Message:
Fuzzy completion: speed up by 2-4 times (on sbcl)

--- /project/slime/cvsroot/slime/contrib/swank-fuzzy.lisp	2010/09/04 00:32:14	1.11
+++ /project/slime/cvsroot/slime/contrib/swank-fuzzy.lisp	2010/10/15 16:09:07	1.12
 <at>  <at>  -465,8 +465,9  <at>  <at> 

 Once a word has been completely matched, the chunks are pushed
 onto the special variable *ALL-CHUNKS* and the function returns."
-  (declare ;(optimize speed)
-           (fixnum short-index initial-full-index)
+  (declare (optimize speed)
+           (type fixnum short-index initial-full-index)
+           (type list current-chunk)
            (simple-string short full)
            (special *all-chunks*))
   (flet ((short-cur () 
 <at>  <at>  -485,10 +486,13  <at>  <at> 
            "Collects the current chunk to CHUNKS and prepares for
             a new chunk."
            (when current-chunk
-             (push (list current-chunk-pos
-                         (coerce (reverse current-chunk) 'string)) chunks)
-             (setf current-chunk nil
-                   current-chunk-pos nil))))
(Continue reading)

Permalink | Reply | 0 comments |
headers
CVS User alendvai | 15 Oct 2010 18:16

CVS slime/contrib

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv23755

Modified Files:
	slime-fuzzy.el 
Log Message:
Clean up fuzzy.el's keymap code, drop mimic-key-bindings

--- /project/slime/cvsroot/slime/contrib/slime-fuzzy.el	2010/08/21 21:34:12	1.21
+++ /project/slime/cvsroot/slime/contrib/slime-fuzzy.el	2010/10/15 16:16:11	1.22
 <at>  <at>  -72,44 +72,32  <at>  <at> 
 ;;;;;;; slime-target-buffer-fuzzy-completions-mode
 ;; NOTE: this mode has to be able to override key mappings in slime-mode

-;; FIXME: clean this up
-
-(defun slime-mimic-key-bindings (from-keymap to-keymap bindings-or-operation operation)
-  "Iterate on BINDINGS-OR-OPERATION. If an element is a symbol then
-try to look it up (as an operation) in FROM-KEYMAP. Non symbols are taken
-as default key bindings when none to be mimiced was found in FROM-KEYMAP.
-Set the resulting list of keys in TO-KEYMAP to OPERATION."
-  (let ((mimic-keys nil)
-        (direct-keys nil))
-    (dolist (key-or-operation bindings-or-operation)
-      (if (symbolp key-or-operation)
-          (setf mimic-keys (append mimic-keys (where-is-internal key-or-operation from-keymap nil t)))
-          (push key-or-operation direct-keys)))
-    (dolist (key (or mimic-keys direct-keys))
-      (define-key to-keymap key operation))))
-
(Continue reading)

Permalink | Reply | 0 comments |
headers
CVS User alendvai | 15 Oct 2010 18:21

CVS slime

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv26265

Modified Files:
	slime.el 
Log Message:
Added separate host and port history for slime-connect.

--- /project/slime/cvsroot/slime/slime.el	2010/10/08 09:03:24	1.1344
+++ /project/slime/cvsroot/slime/slime.el	2010/10/15 16:21:32	1.1345
 <at>  <at>  -198,6 +198,9  <at>  <at> 
   :type 'integer
   :group 'slime-lisp)

+(defvar slime-connect-host-history (list slime-lisp-host))
+(defvar slime-connect-port-history (list (prin1-to-string slime-port)))
+
 (defvar slime-net-valid-coding-systems
   '((iso-latin-1-unix nil "iso-latin-1-unix")
     (iso-8859-1-unix  nil "iso-latin-1-unix")
 <at>  <at>  -1170,9 +1173,12  <at>  <at> 

 (defun slime-connect (host port &optional coding-system)
   "Connect to a running Swank server. Return the connection."
-  (interactive (list (read-from-minibuffer "Host: " slime-lisp-host)
-                     (read-from-minibuffer "Port: " (format "%d" slime-port)
-                                           nil t)))
+  (interactive (list (read-from-minibuffer
+                      "Host: " (first slime-connect-host-history)
+                      nil nil '(slime-connect-host-history . 1))
(Continue reading)

Permalink | Reply | 0 comments |
headers
CVS User alendvai | 15 Oct 2010 18:25

CVS slime

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv26654

Modified Files:
	slime.el 
Log Message:
slime-lookup-lisp-implementation has better error reporting and allows using a functionp to generate
the arguments

--- /project/slime/cvsroot/slime/slime.el	2010/10/15 16:21:32	1.1345
+++ /project/slime/cvsroot/slime/slime.el	2010/10/15 16:25:50	1.1346
 <at>  <at>  -1129,8 +1129,14  <at>  <at> 
                (list :program program :program-args args))))))

 (defun slime-lookup-lisp-implementation (table name)
-  (destructuring-bind (name (prog &rest args) &rest keys) (assoc name table)
-    (list* :name name :program prog :program-args args keys)))
+  (let ((arguments (rest (assoc name table))))
+    (unless arguments
+      (error "Could not find lisp implementation with the name '%S'" name))
+    (when (and (= (length arguments) 1)
+               (functionp (first arguments)))
+      (setf arguments (funcall (first arguments))))
+    (destructuring-bind ((prog &rest args) &rest keys) arguments
+      (list* :name name :program prog :program-args args keys))))

 (defun* slime-start (&key (program inferior-lisp-program) program-args 
                           directory
Permalink | Reply | 0 comments |

Gmane