February 2008 - slime-devel - mailman3.common-lisp.net

[slime-devel] Patch for ABCL GETPID implementation
by Mark Evenson 22 Feb '08

22 Feb '08

Apparently PPID for the parent process id is not a standard feature of the Bourne shell (or at least it isn't present under solaris-5.11). Attached is a patch to my ABCL GETPID implementation that uses HANDLER-CASE to return '0' if any error is raised in attempting to getpid(). -- <Mark.Evenson(a)gmx.at> "[T]his is not a disentanglement from, but a progressive knotting into." diff -r 0c36088c65c0 swank-abcl.lisp --- a/swank-abcl.lisp Wed Jan 02 17:02:52 2008 +0100 +++ b/swank-abcl.lisp Wed Jan 23 12:09:39 2008 +0100 @@ -143,8 +143,7 @@ (funcall fn)) (defimplementation getpid () - (if (not (find :unix *features*)) - 0 + (handler-case (let* ((runtime (java:jstatic "getRuntime" "java.lang.Runtime")) (command @@ -153,8 +152,8 @@ (runtime-exec-jmethod ;; Complicated because java.lang.Runtime.exec() is ;; overloaded on a non-primitive type (array of - ;; java.lang.String), so we have to use the actual parameter - ;; instance to get java.lang.Class + ;; java.lang.String), so we have to use the actual + ;; parameter instance to get java.lang.Class (java:jmethod "java.lang.Runtime" "exec" (java:jcall (java:jmethod "java.lang.Object" "getClass") @@ -162,19 +161,19 @@ (process (java:jcall runtime-exec-jmethod runtime command)) (output - (java:jcall (java:jmethod "java.lang.Process" "getInputStream") + (java:jcall (java:jmethod "java.lang.Process" "getInputStream") process))) - (java:jcall (java:jmethod "java.lang.Process" "waitFor") process) - (loop - :with b - :do (setq b - (java:jcall (java:jmethod "java.io.InputStream" "read") - output)) - :until (member b '(-1 #x0a)) ; Either EOF or LF - :collecting (code-char b) :into result - :finally (return - (values - (parse-integer (coerce result 'string)))))))) + (java:jcall (java:jmethod "java.lang.Process" "waitFor") + process) + (loop :with b :do + (setq b + (java:jcall (java:jmethod "java.io.InputStream" "read") + output)) + :until (member b '(-1 #x0a)) ; Either EOF or LF + :collecting (code-char b) :into result + :finally (return + (parse-integer (coerce result 'string))))) + (t () 0))) (defimplementation lisp-implementation-type-name () "armedbear")

2 3

[slime-devel] Typos in slime.el and slime-autoloads.el?
by Mark Harig 22 Feb '08

22 Feb '08

It appears that the name of the 'contrib' sub-directory was misspelled when added in recent changes to 'slime.el' and 'slime-autoloads.el'. The spelling lists the directory name in the plural ("contribs") instead of the singular ("contrib"). This causes the Emacs LOAD-PATH variable to be set incorrectly. cvs diff slime.el Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.905 diff -r1.905 slime.el 76c76 < (expand-file-name (concat slime-path "contribs"))) --- > (expand-file-name (concat slime-path "contrib"))) cvs diff slime-autoloads.el Index: slime-autoloads.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime-autoloads.el,v retrieving revision 1.4 diff -r1.4 slime-autoloads.el 44c44 < (expand-file-name (concat slime-path "contribs"))) --- > (expand-file-name (concat slime-path "contrib")))

2 2

[slime-devel] Slime-2.0 broken in clisp-2.44
by Jean-Claude Beaudoin 22 Feb '08

22 Feb '08

Hello everyone, It seems that version 2.44 of clisp broke slime 2.0. Here is my quick and dirty fix for it: jeancb@maximus> diff orig/slime-2.0/swank-clisp.lisp slime-2.0/swank-clisp.lisp 287a288,293 > > (eval-when (:compile-toplevel :load-toplevel :execute) > (when (string< "2.44" (lisp-implementation-version)) > (pushnew :clisp-2.44+ *features*)) > ) > 292c298,301 < (frame (sys::the-frame) (sys::frame-up-1 frame 1))) --- > (frame (sys::the-frame) > #+clisp-2.44+ (sys::frame-up 1 frame 1) > #-clisp-2.44+ (sys::frame-up-1 frame 1) > )) 296a306,307 > (setq *features* (remove :clisp-2.44+ *features*)) > I hope this is useful... Cheers, Jean-Claude

5 5

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 22 Feb '08

22 Feb '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1293 slime/ChangeLog:1.1294 --- slime/ChangeLog:1.1293 Wed Feb 20 17:12:37 2008 +++ slime/ChangeLog Thu Feb 21 07:56:21 2008 @@ -1,3 +1,24 @@ +2008-02-21 Tobias C. Rittweiler <tcr(a)freebits.de> + + Fix regressions in the `find-definition' test case on SBCL: + + M-. on e.g. SWANK::READ-FROM-EMACS would bring the user to + + (|defun read-from-emacs ...) + + and not + + |(defun read-from-emacs ...) + + * swank-sbcl.lisp (source-file-position): Don't 1+ the returned + position; i.e. return a position usable as a CL /file position/ + which start from 0, and not a position usable in Emacs where + buffer points start from 1. This is important because the return + value is passed to SWANK-BACKEND::READ-SNIPPET which invokes + CL:FILE-POSITION on it. + (make-definition-source-location): Adapted to 1+ the position + passed to Emacs, to reflect above change. + 2008-02-20 Helmut Eller <heller(a)common-lisp.net> Better factorization for M-. and xref commands. Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.93 slime/contrib/ChangeLog:1.94 --- slime/contrib/ChangeLog:1.93 Wed Feb 20 17:05:24 2008 +++ slime/contrib/ChangeLog Thu Feb 21 15:49:31 2008 @@ -1,3 +1,12 @@ +2008-02-21 Tobias C. Rittweiler <tcr(a)freebits.de> + + Having the `slime-presentations' contrib enabled, (princ 10) + resulted in "1010" rather than "10\n10". (This also caused a + regression in the `repl-test' test case.) + + * swank-presentations.lisp (present-repl-results): Emit fresh-line + as the original SEND-REPL-RESULTS-TO-EMACS does. + 2008-02-18 Helmut Eller <heller(a)common-lisp.net> Update Kawa backend to the changed inspector protocol.

1 0

[slime-devel] swank loading broken?
by Ralf Mattes 21 Feb '08

21 Feb '08

Hello lsit, after a CVS checkout slime stopped to work. Diggin' into the problem i founds the following: * (load "swank-loader.lisp" :verbose T) ; loading #P"/LISP/slime/swank-loader.lisp" STYLE-WARNING: redefining LISP-VERSION-STRING in DEFUN STYLE-WARNING: redefining FILE-NEWER-P in DEFUN STYLE-WARNING: redefining SLIME-VERSION-STRING in DEFUN STYLE-WARNING: redefining BINARY-PATHNAME in DEFUN STYLE-WARNING: redefining HANDLE-LOADTIME-ERROR in DEFUN STYLE-WARNING: redefining LOAD-USER-INIT-FILE in DEFUN STYLE-WARNING: redefining LOAD-SITE-INIT-FILE in DEFUN STYLE-WARNING: redefining APPEND-DIR in DEFUN STYLE-WARNING: redefining LOAD-SWANK in DEFUN T * (swank-loader:init) debugger invoked on a UNDEFINED-FUNCTION in thread #<THREAD "initial thread" {AE61689}>: The function SWANK::SETUP is undefined. Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level. (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SWANK::SETUP) 0] 0 Any idea what's going on? My sank.lisp does indeed not contain a setup fuction. CVS blames "heller" (Helmut Eller, I assume) for the changes in version 1.78. Cheers Ralf Mattes

4 10

[slime-devel] Is loading slime-asdf broken for anyone else?
by Mark Evenson 20 Feb '08

20 Feb '08

With SLIME from 20080216, I cannot seem to include slime-asdf in the list passed to SLIME-SETUP getting the following error in Emacs 22.1 *Messages*: require: Symbol's value as variable is void: slime-repl-load/force-system for the following SLIME initialization code in '.emacs' (require 'slime-autoloads) (setq slime-lisp-implementations `((sbcl ("/opt/local/bin/sbcl")))) (add-hook 'lisp-mode-hook (lambda () (cond ((not (featurep 'slime)) (require 'slime) (normal-mode))))) (eval-after-load "slime" '(slime-setup '(slime-fancy slime-asdf slime-banner))) Without the 'slime-asdf' in the list passed to SLIME-SETUP, everything works just fine. Can anyone spare a clue as to what I am doing wrong? -- "A screaming comes across the sky. It has happened before, but there is nothing to compare to it now."

3 4

[slime-devel] Slime compile warning bug
by Osei Poku 19 Feb '08

19 Feb '08

Hello, It seems lispworks is not populating the compiler::*error-database* is a way that is not compatible with slime's current interpretation. According to map-error-database in swank-lispworks.lisp in my version and the current CVS version, the expected structure of the variable is a list of (filename . ((dspec . condition) ... )) In LW 5.1.1, this structure seems to populated differently. the condition is instead a cons with the condition as the car. ie it is now: (filename . ((dspec . (condition . some-number) ... ))) This change seems to cause the following error when C-c C-c (slime- compile-defun ?) is performed on a function that would yield any kind of warning. (#<CONDITIONS::SIMPLE-STYLE-WARNING 4050518B8B> . 1) fell through ETYPECASE expression. Wanted one of (ERROR STYLE-WARNING WARNING). [Condition of type CONDITIONS:CASE-FAILURE] Restarts: 0: [ABORT] Abort SLIME compilation. 1: [ABORT] Return to SLIME's top level. 2: [ABORT] Quit process. Backtrace: 0: CONDITIONS::CONDITIONS-ERROR (:INVISIBLEP T CONDITIONS:CASE- FAILURE (:NAME ETYPECASE :DATUM (#<CONDITIONS::SIMPLE-STYLE-WARNING 4050518B8B> . 1) :EXPECTED-TYPE (OR ERROR STYLE-WARNING WARNING) ...)) 1: ERROR (CONDITIONS:CASE-FAILURE &REST (:NAME ETYPECASE :DATUM (#<CONDITIONS::SIMPLE-STYLE-WARNING 4050518B8B> . 1) :EXPECTED-TYPE (OR ERROR STYLE-WARNING WARNING) ...)) 2: CONDITIONS::ETYPECASE-ERROR ((#<CONDITIONS::SIMPLE-STYLE-WARNING 4050518B8B> . 1) (ERROR STYLE-WARNING WARNING)) 3: SWANK-BACKEND::SIGNAL-COMPILER-CONDITION ("(A is bound but not referenced . 1)" (:LOCATION (:BUFFER "system-test.lisp") (:POSITION 880) NIL) (#<CONDITIONS::SIMPLE-STYLE-WARNING 4050518B8B> . 1)) Locals: SWANK-BACKEND:MESSAGE = "(A is bound but not referenced . 1)" SWANK-BACKEND:LOCATION = (:LOCATION (:BUFFER "system- test.lisp") (:POSITION 880) NIL) CONDITION = (#<CONDITIONS::SIMPLE-STYLE-WARNING 4050518B8B> . 1) 4: SWANK-BACKEND::MAP-ERROR-DATABASE (((#P"/private/tmp/ LWtemp.APPLEHEAD.ECE.CMU.EDU.37974.18.lisp" (NIL #))) #<Closure 1 subfunction of SWANK-BACKEND::SIGNAL-ERROR-DATA-BASE 4020008644>) Locals: SWANK-BACKEND::DATABASE = ((#P"/private/tmp/ LWtemp.APPLEHEAD.ECE.CMU.EDU.37974.18.lisp" (NIL (# . 1)))) SWANK-BACKEND::FN = #<Closure 1 subfunction of SWANK- BACKEND::SIGNAL-ERROR-DATA-BASE 4020008644> SWANK-BACKEND::FILENAME = #P"/private/tmp/ LWtemp.APPLEHEAD.ECE.CMU.EDU.37974.18.lisp" SWANK-BACKEND::DEFS = ((NIL (#<CONDITIONS::SIMPLE-STYLE- WARNING 4050518B8B> . 1))) DBG::|tail-| = NIL SWANK-BACKEND::DSPEC = NIL SWANK-BACKEND::CONDITIONS = ((#<CONDITIONS::SIMPLE-STYLE- WARNING 4050518B8B> . 1)) DBG::|tail-| = NIL DBG::|dolist-| = ((#<CONDITIONS::SIMPLE-STYLE-WARNING 4050518B8B> . 1)) SWANK-BACKEND::C = (#<CONDITIONS::SIMPLE-STYLE-WARNING 4050518B8B> . 1) 5: (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 (LISPWORKS:TOP-LEVEL-FORM 76)) NIL Locals: SWANK-BACKEND:LOCATION = (:EMACS-BUFFER "system-test.lisp" 880 "(defun test-err (a) (+ 2 (* 4 5)))") SWANK-BACKEND::TMPNAME = #P"/tmp/LWtemp.APPLEHEAD.ECE.CMU.EDU. 37974.18.lisp" STRING = "(defun test-err (a) (+ 2 (* 4 5)))" 6: COMPILER::DO-COMPILATION-UNIT (#<Closure 1 subfunction of (LISPWORKS:TOP-LEVEL-FORM 76) 4020000984> T NIL) Locals: COMPILER::CONTINUATION = #<Closure 1 subfunction of (LISPWORKS:TOP-LEVEL-FORM 76) 4020000984> COMPILER::DO-MESSAGES = T COMPILER::SUMMARIZE = NIL 7: COMPILER::WITH-COMPILATION-UNIT-INTERNAL (#<Closure 1 subfunction of (LISPWORKS:TOP-LEVEL-FORM 76) 4020000984> &KEY NIL NIL NIL) 8: (HARLEQUIN-COMMON-LISP:SUBFUNCTION 1 (LISPWORKS:TOP-LEVEL-FORM 76)) ("(defun test-err (a) (+ 2 (* 4 5)))" &KEY "system-test.lisp" 880 "<DIRECTORY>") 9: SWANK-BACKEND:SWANK-COMPILE-STRING ("(defun test-err (a) (+ 2 (* 4 5)))" &KEY "system-test.lisp" 880 "/Users/opoku/Work/ testworks/diagnosis/") Thanks. Osei

2 1

[slime-devel] two character keymaps
by Jeff Rose 18 Feb '08

18 Feb '08

Hi, I'm working on getting my viper mode and slime modes working happily together, and I am having problems with one important command mapping: I would like to map the keys 'kj' in succession to mean <esc>. That way I can change modes without leaving the home row. It seems that if I map anything starting with 'k' that it will then use it as a dispatch key and it won't print normally when it's not 'kj'. Any ideas how I could do this? Thanks for the great work. Slime is the bomb! I know it's not totally slime related, but my goal is to put together a nice combo package for vim'ers getting into lisp, so it will help eventually. -Jeff

1 0

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 18 Feb '08

18 Feb '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1290 slime/ChangeLog:1.1291 --- slime/ChangeLog:1.1290 Sat Feb 16 14:26:22 2008 +++ slime/ChangeLog Sun Feb 17 07:28:27 2008 @@ -1,3 +1,8 @@ +2008-02-17 Marco Baringer <mb(a)bese.it> + + * swank.asd: Update for recent changes to swank-loader.lisp, we + need to call swank-loader::init after loading. + 2008-02-16 Helmut Eller <heller(a)common-lisp.net> In the REPL, mark the trailing newline also as input.

1 0

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 17 Feb '08

17 Feb '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1289 slime/ChangeLog:1.1290 --- slime/ChangeLog:1.1289 Sun Feb 10 03:32:04 2008 +++ slime/ChangeLog Sat Feb 16 14:26:22 2008 @@ -1,3 +1,25 @@ +2008-02-16 Helmut Eller <heller(a)common-lisp.net> + + In the REPL, mark the trailing newline also as input. + + * slime.el (slime-repl-send-input): Mark the newline with + the 'slime-repl-old-input property. + (slime-repl-grab-old-input): Strip the newline. + +2008-02-16 Helmut Eller <heller(a)common-lisp.net> + + Split loading and initialization (again). + + * swank-loader.lisp (init): New. Delete old packages only if + explicitly requested. Also, if the swank package already exists + don't load swank again. + (setup): New function. + + * swank.lisp (setup): New function. Moved over here from + swank-loader.lisp. + + * slime.el (slime-init-command): Call swank-loader:init. + 2008-02-10 Helmut Eller <heller(a)common-lisp.net> Remove remaining traces of make-default-inspector. @@ -2875,15 +2897,15 @@ * slime.el (slime-repl-previous-input-starting-with-current-input) (slime-repl-next-input-starting-with-current-input): New functions, work like the old slime-repl-previous-input / next-input. - (slime-repl-matching-input-regexp): Restore old version. + (slime-repl-matching-input-regexp): Restore old version. (slime-repl-mode-map): Bind s-r-p-i-s-w-c-i and s-r-n-i-s-w-c-i to M-p and M-n respectively. slime-repl-previous-input and slime-repl-next-input are still accessible with C-up / C-down. - + 2006-11-25 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-repl-read-break): Use a :emacs-interrupt message - instead of a RPC to swank:simple-break. Suggested by Taylor R + instead of a RPC to swank:simple-break. Suggested by Taylor R. Campbell. 2006-11-24 Helmut Eller <heller(a)common-lisp.net> @@ -3428,7 +3450,7 @@ * swank.lisp (format-iso8601-time): Properly handle non integer time zones. -2006-09-13 Taylor R Campbell <campbell(a)mumble.net> +2006-09-13 Taylor R. Campbell <campbell(a)mumble.net> * slime.el (slime-init-output-buffer): Initial directory and package stacks should be empty. @@ -3613,7 +3635,7 @@ 2006-07-28 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-thread-quit): Call swank:quit-thread-browser. - Reported by Taylor R Campbell. + Reported by Taylor R. Campbell. 2006-07-28 Willem Broekema <metawilm(a)gmail.com> @@ -4970,7 +4992,7 @@ * slime.el (slime48): New command. -2005-09-19 Taylor Campbell <campbell(a)mumble.net> +2005-09-19 Taylor R. Campbell <campbell(a)mumble.net> * swank-scheme48/: New backend.

1 0