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

[slime-devel] sub & superscript faces in .lisp files
by Mirko Vukovic 21 Apr '10

21 Apr '10

Hello, Apologies for this slightly off-topic question, but it may relate to slime's `group' settings (Much off this email is a copy of a post to gnu.emacs.help) I am trying to display text following an underscore as a subscript and following a caret as a superscript. By looking at various pieces of code (tex-mode.el and pretty-greek.el from Pascal Bourgignon), I came up with the following (which, of course does not work): (defvar suscript-height-minimum 0) (defvar suscript-height-ratio 0.8) (defun suscript-height (height) "Return the integer height of subscript/superscript font in 1/10 points. Not smaller than the value set by `tex-suscript-height-minimum'." (ceiling (max (if (integerp suscript-height-minimum) suscript-height-minimum ;; For bootstrapping. (condition-case nil (* suscript-height-minimum (face-attribute 'default :height)) (error 0))) ;; NB assumes height is integer. (* height suscript-height-ratio)))) (defface superscript '((t :height suscript-height)) "Face used for superscripts.") (defface subscript '((t :height suscript-height)) "Face used for subscripts.") (defun suscript-match-regexp (escape-char) "regexp for suscripted text match in common-lisp code" (let ((terminating-string (format "_^ )$-"))) (format "%s\$.*?\$[%s]" escape-char terminating-string terminating-string))) (defvar subscript-match (suscript-match-regexp "_") "Matches _whatever[_|^|SPACE|TAB|)") (defvar superscript-match (suscript-match-regexp "\\^") "Matches ^whatever[_|^|SPACE|TAB|)") (defun pretty-suscript () "Load super&subscript keywords into `suscript-flk' and load that into `font-lock-keywords'" (interactive) (setq suscript-flk `((,subscript-match (1 (face subscript display (raise 0.2)))) (,superscript-match (1 (face superscript display (raise -0.2)))))) (font-lock-add-keywords nil suscript-flk)) (defun cancel-pretty-suscript () "Remove `suscript-flk' keywords from `font-lock-keywords'" (interactive) (font-lock-remove-keywords nil suscript-flk)) The contents `font-lock-keywords' are as follows: (t (("_\$.*?\$[_^ )$-]" (1 (face subscript display (raise 0.2)))) ("\\^\$.*?\$[_^ )$-]" (1 (face superscript display (raise -0.2)))) ...) My question is whether I need to specify a group in the `defface' commands. For example: (defface superscript '((t :height 0.8));;suscript-height)) "Face used for superscripts." :group 'slime-mode-faces) I found several groups in slime.el, and I am not sure which one to apply in defface. Thanks, Mirko

2 1

[slime-devel] ELS2010 Call for Participation
by Christophe Rhodes 21 Apr '10

21 Apr '10

3rd European Lisp Symposium =========================== May 6-7, 2010, Fundacao Calouste Gulbenkian Lisbon, Portugal Call for Participation ~~~~~~~~~~~~~~~~~~~~~~~ Registration for the 3rd European Lisp Symposium (ELS 2010) is now open at [http://www.european-lisp-symposium.org/] Scope and Programme Highlights ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ The purpose of the European Lisp Symposium is to provide a forum for the discussion of all aspects of the design, implementation and application of any of the Lisp dialects. We encourage everyone interested in Lisp to participate. As well as presentations of the accepted technical papers and tutorials, the programme features the following highlights: - Kent Pitman of HyperMeta Inc. will offer reflections on Lisp Past, Present and Future; - Pascal Costanza will lead a tutorial session on Parallel Programming in Common Lisp; - Matthias Felleisen of PLT will talk about languages for creating programming languages; - A TI Explorer Lisp Machine, having been unplugged for the best part of two decades, will be demonstrated; - there will be opportunities for attendees to give lightning talks and demos of late-breaking work. Social events ~~~~~~~~~~~~~~ - Symposium banquet (included with registration) - Excursion to Sintra (optional, Saturday May 8): for six centuries the favourite Summer residence of the Kings of Portugal, who were attracted by cool climates and the beauty of the town's setting. Programme Chair ~~~~~~~~~~~~~~~~ Christophe Rhodes, Goldsmiths, University of London, UK Local Chair ~~~~~~~~~~~~ Antonio Leitao, Technical University of Lisbon, Portugal Programme Committee ~~~~~~~~~~~~~~~~~~~~ + Marco Antoniotti, Universita Milano Bicocca, Italy + Giuseppe Attardi, Universita di Pisa, Italy + Pascal Costanza, Vrije Universiteit Brussel, Belgium + Irene Anne Durand, Universite Bordeaux I, France + Marc Feeley, Universite de Montreal, Canada + Ron Garret, Amalgamated Widgets Unlimited, USA + Gregor Kiczales, University of British Columbia, Canada + Antonio Leitao, Technical University of Lisbon, Portugal + Nick Levine, Ravenbrook Ltd, UK + Scott McKay, ITA Software, Inc., USA + Peter Norvig, Google Inc., USA + Kent Pitman, PTC, USA + Christian Queinnec, Universite Pierre et Marie Curie, France + Robert Strandh, Universite Bordeaux I, France + Didier Verna, EPITA Research and Development Laboratory, France + Barry Wilkes, Citi, UK + Taiichi Yuasa, Kyoto University, Japan Registration ~~~~~~~~~~~~~ Registration is open at [http://www.european-lisp-symposium.org/] and costs EUR120 (EUR60 for students) *until 22nd April*, and EUR200 (EUR120 for students) afterwards. Registration includes a copy of the proceedings, coffee breaks, and the symposium banquet. Accommodation is not included.

1 0

[slime-devel] ELW 2010 deadline extension -- April 25th
by Didier Verna 21 Apr '10

21 Apr '10

+------------------------------------------------------------+ | CALL FOR PAPERS | | 7th European Lisp Workshop | | June 22 2010, Maribor, Slovenia, co-located with ECOOP | +------------------------------------------------------------+ Important Dates =============== Submission deadline: April 25, 2010 ** EXTENDED ** Notification of acceptance: May 05, 2010 ECOOP early registration deadline: May 10, 2010 7th European Lisp Workshop: June 22, 2010 Please note that registration must be done with ECOOP itself. For more information visit http://www.european-lisp-workshop.org Contact: Didier Verna, didier(a)lrde.epita.fr Invited Speaker =============== Manuel Serrano (INRIA, France) http://www-sop.inria.fr/members/Manuel.Serrano/ Overview ======== "...Please don't assume Lisp is only useful for Animation and Graphics, AI, Bio-informatics, B2B and E-Commerce, Data Mining, EDA/Semiconductor applications, Expert Systems, Finance, Intelligent Agents, Knowledge Management, Mechanical CAD, Modeling and Simulation, Natural Language, Optimization, Research, Risk Analysis, Scheduling, Telecom, and Web Authoring just because these are the only things they happened to list." -- Kent Pitman Lisp, one of the eldest computer languages still in use today, is gaining momentum again. The structure of Lisp makes it easy to extend the language or even to implement entirely new dialects without starting from scratch, making it the ideal candidate for writing Domain Specific Languages. Common Lisp, with the Common Lisp Object System (CLOS), was the first object-oriented programming language to receive an ANSI standard and remains the most complete and advanced object system of any programming language, while influencing many other object-oriented programming languages that followed. This workshop will address the near-future role of Lisp-based languages in research, industry and education. We solicit contributions that discuss the opportunities Lisp provides to capture and enhance the possibilities in software engineering. We want to promote lively discussion between researchers proposing new approaches and practitioners reporting on their experience with the strengths and limitations of current Lisp technologies. The workshop will have two components: there will be formal talks, and interactive turorial/demo/coding sessions. Papers ====== Formal presentations in the workshop should take between 20 minutes and half an hour; additional time will be given for questions and answers. Suggested topics include (but are not limited to): - Context-, aspect-, domain-oriented and generative programming - Macro-, reflective-, meta- and/or rule-based development approaches - Protocol meta-programming and libraries - New language features and abstractions - Software evolution - Development aids - Persistent systems - Dynamic optimization - Implementation techniques - Hardware Support - Efficiency, distribution and parallel programming - Educational approaches and perspectives - Experience reports and case studies Interactive Tutorial/Demo/Coding Sessions ========================================= Additionally, we invite less formal talks in the form of interactive tutorial/demo/coding sessions. The purpose of these sessions is both to demonstrate and receive feedback on any interesting Lisp system, either stable or under development. Being less formal than technical paper presentations, these sessions are expected to be highly interactive. Submission Guidelines ===================== Potential contributors are encouraged to submit: - a long paper (around 10 pages) presenting scientific and/or empirical results about Lisp-based uses or new approaches for software engineering purposes, - a short essay (5 pages) defending a position about where research, practice or education based on Lisp should be heading in the near future, - a proposal for an interactive tutorial/demo/coding session (1-2 pages) describing the involved library or application, and the subject of the session. Papers (both long and short) should be formatted following the ACM SIGS guidelines and include ACM classification categories and terms (see below). Authors will later be required to sign an ACM copyright form, as the workshop proceedings will be published in the ACM Digital Library. For more information on the submission guidelines and the ACM keywords, see: http://www.acm.org/sigs/publications/proceedings-templates http://www.acm.org/about/class/1998 Submissions should be uploaded to Easy Chair, at the following address: http://www.easychair.org/conferences/?conf=elw2010 Organizers ========== Didier Verna, EPITA Research and Development Laboratory, Paris Charlotte Herzeel, Programming Technology Lab, Vrije Universiteit, Brussel Robert Strandh, LaBRI, University of Bordeaux 1, France Christophe Rhodes, Goldsmiths College, University of London -- Resistance is futile. You will be jazzimilated. Scientific site: http://www.lrde.epita.fr/~didier Music (Jazz) site: http://www.didierverna.com

1 0

[slime-devel] Daily ChangeLog diff
by Helmut Eller 21 Apr '10

21 Apr '10

Index: slime/ChangeLog diff -u slime/ChangeLog:1.2070 slime/ChangeLog:1.2072 --- slime/ChangeLog:1.2070 Mon Apr 19 22:25:23 2010 +++ slime/ChangeLog Tue Apr 20 05:48:19 2010 @@ -1,3 +1,15 @@ +2010-04-20 Tobias C. Rittweiler <tcr(a)freebits.de> + + * swank-sbcl.lisp (condition-timed-wait): New helper. Use + WITH-DEADLINE rather than WITH-TIMEOUT because the latter conses a + new timer, and this function is called _a lot_. + (receive-if): Use it. + +2010-04-20 Stas Boukarev <stassats(a)gmail.com> + + * slime.el (slime-update-threads-buffer): Save point position + on updates. + 2010-04-20 Stas Boukarev <stassats(a)gmail.com> * README: advertise additional contribs, especially slime-fancy.

1 0

[slime-devel] Recent (two-three months) problems using CMUCL+SLIME
by Alex Goncharov 17 Apr '10

17 Apr '10

I am on the bleeding edge of everything here: SLIME and CMUCL built out of CVS repositories, GNU Emacs 23.1.1. A few months ago, SLIME and CMUCL stopped functioning for me in any acceptable way. I vaguely correlate this to my switching from GNU Emacs 22 to 23, but can't be sure that the Emacs upgrade was indeed the deciding factor. I kept hoping that some upgrade of something would fix the situation but this hasn't happened. I see these three issues now: * SLIME' responsiveness is poor. It used to do the evaluation and print results instantly, now with a noticeable delay. Which may be explained by the next item. * On every evaluation I see a message like this: Unexpected reply: ### (:ok "/xxx/") * The above two issues are an annoyance, even if not a small one. The real issue is that a failure to evaluate some Lisp expression results in a connection abort. Below is a small demo -- the trimmed contents of various buffers. Can anybody help me find the way out of my misery? Thanks in advance. ============================================================ ---------------------------------------- try.lisp -------------------- (print (+ 1 0)) (print (/ 1 0)) ---------------------------------------- *slime-repl cmucl* -------------------- ; SLIME 2010-04-12 1 CL-USER> ---------------------------------------- *Messages* -------------------- Connecting to Swank on port 31964.. [2 times] Wrote /xxx/try.lisp error in process filter: slime-dispatch-event: Unexpected reply: 24 (:ok "/xxx/") error in process filter: Unexpected reply: 24 (:ok "/xxx/") Evaluation aborted. Error during redisplay: (error Connection closed.) [2 times] Lisp connection closed unexpectedly: connection broken by remote peer ---------------------------------------- *inferior-lisp* -------------------- (progn (load "/app/lisp/slime/swank-loader.lisp" :verbose t) (funcall (read-from-string "swank-loader:init")) (funcall (read-from-string "swank:start-server") "/tmp/slime.22110" :coding-system "utf-8-unix")) CMU Common Lisp 2010-04-06 (20A Unicode), running on myhost With core: /app/lisp/cmucl/2010-04-06/lib/cmucl/lib/lisp-sse2.core Dumped on: Tue, 2010-04-06 18:18:50-04:00 on otherhost See <http://www.cons.org/cmucl/> for support information. Loaded subsystems: Unicode 1.7 with Unicode version 5.1.0 Python 1.1, target Intel x86/sse2 CLOS based on Gerd's PCL 2010-03-19 15:19:03 * Warning: These Swank interfaces are unimplemented: (FRAME-CALL RESTART-FRAME SLDB-STEP-INTO SLDB-STEP-NEXT SLDB-STEP-OUT) ;; Swank started at port: 31964. 31964 * ; Comment: $Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/utf-8.lisp,v 1.5 2009-09-28 18:12:59 rtoy Exp $ ; Compiling DEFINE-EXTERNAL-FORMAT UTF-8: ; Compiling DEFINE-EXTERNAL-FORMAT UTF-8: ; Byte Compiling Top-Level Form: ;; swank:close-connection: Arithmetic error DIVISION-BY-ZERO signalled. Operation was KERNEL::DIVISION, operands (1 0). ;; Event history start: invoke-or-queue-interrupt: #<Closure Over Function "DEFUN PROCESS-IO-INTERRUPT" {48442239}> wait-for-event: (COMMON-LISP:OR (:EMACS-REX . SWANK::_) (:EMACS-CHANNEL-SEND . SWANK::_)) T READ: "(:emacs-rex (swank:autodoc (quote (\"print\" (\"/\" \"1\" \"0\") swank::%cursor-marker%)) :print-right-margin 80) \"COMMON-LISP-USER\" t 23) " dispatch-event: (:EMACS-REX (SWANK:AUTODOC (QUOTE ("print" ("/" "1" "0") SWANK::%CURSOR-MARKER%)) :PRINT-RIGHT-MARGIN 80) "COMMON-LISP-USER" T 23) send-event: #<Process Initial {48B7F79D}> (:EMACS-REX (SWANK:AUTODOC (QUOTE ("print" ("/" "1" "0") SWANK::%CURSOR-MARKER%)) :PRINT-RIGHT-MARGIN 80) "COMMON-LISP-USER" 23) dispatch-event: (:RETURN #<Process Initial {48B7F79D}> (:OK "(print ===> object <=== &optional stream)") 23) WRITE: (:return (:ok "(print ===> object <=== &optional stream)") 23) wait-for-event: (COMMON-LISP:OR (:EMACS-REX . SWANK::_) (:EMACS-CHANNEL-SEND . SWANK::_)) T process-io-interrupt 0 ... done process-io-interrupt 0 ... invoke-or-queue-interrupt: #<Closure Over Function "DEFUN PROCESS-IO-INTERRUPT" {4844D969}> wait-for-event: (COMMON-LISP:OR (:EMACS-REX . SWANK::_) (:EMACS-CHANNEL-SEND . SWANK::_)) T process-io-interrupt 0 ... done process-io-interrupt 0 ... invoke-or-queue-interrupt: #<Closure Over Function "DEFUN PROCESS-IO-INTERRUPT" {48454FD9}> wait-for-event: (COMMON-LISP:OR (:EMACS-REX . SWANK::_) (:EMACS-CHANNEL-SEND . SWANK::_)) T READ: "(:emacs-rex (swank:set-default-directory \"/xxx/\") \"COMMON-LISP-USER\" t 24) " dispatch-event: (:EMACS-REX (SWANK-BACKEND:SET-DEFAULT-DIRECTORY "/xxx/") "COMMON-LISP-USER" T 24) send-event: #<Process Initial {48B7F79D}> (:EMACS-REX (SWANK-BACKEND:SET-DEFAULT-DIRECTORY "/xxx/") "COMMON-LISP-USER" 24) dispatch-event: (:RETURN #<Process Initial {48B7F79D}> (:OK "/xxx/") 24) WRITE: (:return (:ok "/xxx/") 24) process-io-interrupt 1 ... invoke-or-queue-interrupt: #<Closure Over Function "DEFUN PROCESS-IO-INTERRUPT" {48460341}> queue-interrupt: #<Closure Over Function "DEFUN PROCESS-IO-INTERRUPT" {48460341}>process-io-interrupt 1 ... done process-io-interrupt 1 ... invoke-or-queue-interrupt: #<Closure Over Function "DEFUN PROCESS-IO-INTERRUPT" {4846DE99}> too many queued interrupts wait-for-event: (COMMON-LISP:OR (:EMACS-REX . SWANK::_) (:EMACS-CHANNEL-SEND . SWANK::_)) T wait-for-event: (COMMON-LISP:OR (:EMACS-REX . SWANK::_) (:EMACS-CHANNEL-SEND . SWANK::_)) T READ: "(:emacs-rex (swank:interactive-eval-region \"(print (+ 1 0)) (print (/ 1 0)) \") \"COMMON-LISP-USER\" t 25) " dispatch-event: (:EMACS-REX (SWANK:INTERACTIVE-EVAL-REGION "(print (+ 1 0)) (print (/ 1 0)) ") "COMMON-LISP-USER" T 25) send-event: #<Process Initial {48B7F79D}> (:EMACS-REX (SWANK:INTERACTIVE-EVAL-REGION "(print (+ 1 0)) (print (/ 1 0)) ") "COMMON-LISP-USER" 25) dispatch-event: (:WRITE-STRING " 1 ") WRITE: (:write-string " 1 ") dispatch-event: (:RETURN #<Process Initial {48B7F79D}> (:ABORT) 25) WRITE: (:return (:abort) 25) close-connection: Arithmetic error COMMON-LISP:DIVISION-BY-ZERO signalled. Operation was KERNEL::DIVISION, operands (1 0). ... deinstall-sigio-handler... deinstall-sigio-handler...done ;; Event history end. ;; Backtrace: (0 ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT) #<Function "DEFUN SAFE-BACKTRACE" {48E55D19}>)) (1 (SWANK::SAFE-BACKTRACE)) (2 ("DEFUN CALL-WITH-CONNECTION" #<SWANK-RPC:SWANK-PROTOCOL-ERROR {48478675}>)) (3 (SIGNAL #<SWANK-RPC:SWANK-PROTOCOL-ERROR {48478675}>)) (4 (ERROR #<SWANK-RPC:SWANK-PROTOCOL-ERROR {48478675}>)) (5 ("DEFUN ENCODE-MESSAGE" #<DIVISION-BY-ZERO {4847824D}>)) (6 (SIGNAL #<DIVISION-BY-ZERO {4847824D}>)) (7 (ERROR DIVISION-BY-ZERO :FUNCTION-NAME KERNEL::INTEGER-/-INTEGER :OPERATION ...)) (8 (KERNEL::DIVISION-BY-ZERO-ERROR-HANDLER KERNEL::INTEGER-/-INTEGER #.(SYSTEM:INT-SAP #x47FD6878) #<Alien (* SYSTEM:SYSTEM-AREA-POINTER) at #x47FD6550> (19 83))) (9 (KERNEL::INTERNAL-ERROR #.(SYSTEM:INT-SAP #x47FD6550) #<unused-arg>)) (10 ("Foreign function call land")) (11 ("Foreign function call land")) (12 ("Foreign function call land")) (13 ("Foreign function call land")) (14 (KERNEL::INTEGER-/-INTEGER 1 0)) (15 (/ 1 0)) (16 (EVAL (PRINT (/ 1 0)))) (17 (SWANK::EVAL-REGION "(print (+ 1 0))\n(print (/ 1 0))\n")) (18 ("DEFSLIMEFUN INTERACTIVE-EVAL-REGION")) (19 (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME interactive evaluation request." #<Closure Over Function "DEFSLIMEFUN INTERACTIVE-EVAL-REGION" {48476CB9}>)) (20 (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<Closure Over Function "DEFSLIMEFUN INTERACTIVE-EVAL-REGION" {48476CA9}>)) (21 (SWANK::EVAL-FOR-EMACS (SWANK:INTERACTIVE-EVAL-REGION "(print (+ 1 0))\n(print (/ 1 0))\n") "COMMON-LISP-USER" 25)) (22 (SWANK::PROCESS-REQUESTS T)) (23 (SWANK-BACKEND:CHECK-SLIME-INTERRUPTS)) (24 (SWANK::WAIT-FOR-EVENT (OR (:EMACS-REX . SWANK::_) (:EMACS-CHANNEL-SEND . SWANK::_)) T)) (25 (SWANK::PROCESS-REQUESTS T)) (26 (SWANK-BACKEND:CHECK-SLIME-INTERRUPTS)) (27 (SWANK::PROCESS-IO-INTERRUPT #<SWANK::CONNECTION {4862D7D5}>)) (28 (SWANK-BACKEND::SIGIO-HANDLER #<unused-arg> #<unused-arg> #<unused-arg>)) (29 ("Foreign function call land")) (30 ("Foreign function call land")) (31 ("Foreign function call land")) (32 ("Foreign function call land")) (33 (LISP::DO-OUTPUT #<Stream for descriptor 5> #.(SYSTEM:INT-SAP #x281E1000) 0 57 ...)) (34 (LISP::FLUSH-OUTPUT-BUFFER #<Stream for descriptor 5>)) (35 (LISP::FD-STREAM-MISC-ROUTINE #<Stream for descriptor 5> :FINISH-OUTPUT NIL #<unused-arg>)) (36 (FINISH-OUTPUT #<Stream for descriptor 5>)) (37 (SWANK-RPC:ENCODE-MESSAGE (:RETURN (:OK "/xxx/") 24) #<Stream for descriptor 5>)) (38 ((FLET #:G0 SWANK::EVAL-FOR-EMACS))[:CLEANUP]) (39 (SWANK::EVAL-FOR-EMACS (SWANK-BACKEND:SET-DEFAULT-DIRECTORY "/xxx/") "COMMON-LISP-USER" 24)) (40 (SWANK::PROCESS-REQUESTS T)) (41 ("DEFUN HANDLE-REQUESTS")) (42 ("DEFINTERFACE CALL-WITH-DEBUGGER-HOOK" #<Function SWANK:SWANK-DEBUGGER-HOOK {48BE7AA9}> #<Closure Over Function "DEFUN HANDLE-REQUESTS" {4845BB99}>)) (43 (SWANK::CALL-WITH-BINDINGS ((*STANDARD-OUTPUT* . #) (*STANDARD-INPUT* . #) (*TRACE-OUTPUT* . #) (*ERROR-OUTPUT* . #) (*DEBUG-IO* . #<Two-Way Stream, Input = #, Output = #>) ...) ..)) (44 (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {4862D7D5}> #<Closure Over Function "DEFUN HANDLE-REQUESTS" {4845BB99}>)) (45 (SWANK::HANDLE-REQUESTS #<SWANK::CONNECTION {4862D7D5}> T)) (46 (SWANK::INVOKE-OR-QUEUE-INTERRUPT #<Closure Over Function "DEFUN PROCESS-IO-INTERRUPT" {48454FD9}>)) (47 (SWANK::PROCESS-IO-INTERRUPT #<SWANK::CONNECTION {4862D7D5}>)) (48 (SWANK-BACKEND::SIGIO-HANDLER #<unused-arg> #<unused-arg> #<unused-arg>)) (49 ("Foreign function call land")) (50 ("Foreign function call land")) (51 ("Foreign function call land")) (52 ("Foreign function call land")) (53 (SYSTEM:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL)) (54 (LISP::DO-INPUT #<Stream for Standard Input>)) (55 ("PRECOMPILE-EF-SLOT ISO8859-1" #<Stream for Standard Input> NIL (LISP::*EOF*))) (56 (LISP::SYNONYM-IN #<Synonym Stream to SYSTEM:*STDIN*> NIL (LISP::*EOF*))) (57 (LISP::TWO-WAY-IN #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (LISP::*EOF*))) (58 (READ-CHAR #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (LISP::*EOF*) NIL)) (59 (LISP::READ-PRESERVING-WHITESPACE-INTERNAL #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (:EOF) T)) (60 (LISP::READ-PRESERVING-WHITESPACE-INTERNAL #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (:EOF) NIL)) (61 (LISP::READ-PRESERVING-WHITESPACE-INTERNAL 4 #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (:EOF) ...)[:EXTERNAL]) (62 (LISP::READ-INTERNAL #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (:EOF) NIL)) (63 (READ #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (:EOF) NIL)) (64 (LISP::%TOP-LEVEL)) (65 ((LABELS LISP::RESTART-LISP SAVE-LISP))) ;; Connection to Emacs lost. [ ;; condition: Arithmetic error DIVISION-BY-ZERO signalled. Operation was KERNEL::DIVISION, operands (1 0). ;; type: DIVISION-BY-ZERO ;; encoding: utf-8-unix vs. UTF-8 ;; style: :SIGIO dedicated: NIL] ---------------------------------------- *slime-events* -------------------- (:emacs-rex (swank:connection-info) "COMMON-LISP-USER" t 1) (:indentation-update (("with-host" . 1) ("with-read-buffer" . 1) ("enumerate-matches" . 1) ("defloader" . 2) ("prepare-for-fast-read-char" . 1) ("input-wrapper" . 1) ("output-wrapper" . 1) ("with-symbol" . 1) ("def-output-routines" . 1) ("maybe-sap-maybe-string" . 1) ("with-pathname" . 1) ("with-fop-stack" . 1) ("prepare-for-fast-read-byte" . 1) ("define-function-name-syntax" . 2) ("with-float-traps-masked" . 1) ("without-package-locks" . 0) ("def-source-context" . 2) ("enumerate-search-list" . 1) ("do-info" . 1) ("with-c-strvec" . 1) ...)) (:return (:ok (:pid 22130 :style :sigio :encoding (:coding-system "utf-8-unix" :external-format "UTF-8") :lisp-implementation (:type "CMU Common Lisp" :name "cmucl" :version "2010-04-06 (20A Unicode)" :program "/app/lisp/cmucl/2010-04-06/bin/lisp") :machine (:instance "myhost" :type "X86" :version "X86") :features (:cl-ppcre :split-sequence :asdf :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu20 :cmu20a :python :conservative-float-type :modular-arith :mp :x86 :sse2 :linkage-table :relative-package-names :executable :elf :freebsd ...) :modules ("ASDF" "LOOP") :package (:name "COMMON-LISP-USER" :prompt "CL-USER") :version "2010-04-12")) 1) (:emacs-rex (swank:swank-require '(:swank-package-fu :swank-presentations :swank-fuzzy :swank-fancy-inspector :swank-c-p-c :swank-arglists)) "COMMON-LISP-USER" t 2) (:return (:ok ("SWANK-ARGLISTS" "SWANK-FANCY-INSPECTOR" "SWANK-FUZZY" "SWANK-C-P-C" "SWANK-PRESENTATIONS" "SWANK-PACKAGE-FU" "ASDF" "LOOP")) 2) (:emacs-rex (swank:create-repl nil) "COMMON-LISP-USER" t 3) (:return (:ok ("COMMON-LISP-USER" "CL-USER")) 3) (:emacs-rex (swank:buffer-first-change "/xxx/try.lisp") "COMMON-LISP-USER" t 4) (:return (:ok nil) 4) (:emacs-rex (swank:autodoc '("foir" swank::%cursor-marker%) :print-right-margin 80) "COMMON-LISP-USER" t 5) (:return (:ok :not-available) 5) (:emacs-rex (swank:autodoc '("for" swank::%cursor-marker%) :print-right-margin 80) "COMMON-LISP-USER" t 6) (:return (:ok :not-available) 6) (:emacs-rex (swank:autodoc '("forma" swank::%cursor-marker%) :print-right-margin 80) "COMMON-LISP-USER" t 7) (:return (:ok :not-available) 7) (:emacs-rex (swank:autodoc '("format" "" swank::%cursor-marker%) :print-right-margin 80) "COMMON-LISP-USER" t 8) (:return (:ok "(format ===> destination <=== control-string &rest format-arguments)") 8) (:emacs-rex (swank:autodoc '("print" "" swank::%cursor-marker%) :print-right-margin 80) "COMMON-LISP-USER" t 9) (:return (:ok "(print ===> object <=== &optional stream)") 9) (:emacs-rex (swank:autodoc '("print" ("" swank::%cursor-marker%)) :print-right-margin 80) "COMMON-LISP-USER" t 10) (:return (:ok "(print ===> object <=== &optional stream)") 10) (:emacs-rex (swank:autodoc '("print" ("+" swank::%cursor-marker%)) :print-right-margin 80) "COMMON-LISP-USER" t 11) (:return (:ok "+ => (PROGN ..)") 11) (:emacs-rex (swank:autodoc '("print" ("+" "" swank::%cursor-marker%)) :print-right-margin 80) "COMMON-LISP-USER" t 12) (:return (:ok "(+ &rest ===> args <===)") 12) (:emacs-rex (swank:autodoc '("print" ("+" "1" swank::%cursor-marker%)) :print-right-margin 80) "COMMON-LISP-USER" t 13) (:return (:ok "(+ &rest ===> args <===)") 13) (:emacs-rex (swank:autodoc '("print" ("+" "1" "" swank::%cursor-marker%)) :print-right-margin 80) "COMMON-LISP-USER" t 14) (:return (:ok "(+ &rest ===> args <===)") 14) (:emacs-rex (swank:autodoc '("print" ("+" "1" "0" swank::%cursor-marker%)) :print-right-margin 80) "COMMON-LISP-USER" t 15) (:return (:ok "(+ &rest ===> args <===)") 15) (:emacs-rex (swank:autodoc '("print" ("+" "1" "0") swank::%cursor-marker%) :print-right-margin 80) "COMMON-LISP-USER" t 16) (:return (:ok "(print ===> object <=== &optional stream)") 16) (:emacs-rex (swank:autodoc '(("/" "1" "0") swank::%cursor-marker%) :print-right-margin 80) "COMMON-LISP-USER" t 17) (:return (:ok :not-available) 17) (:emacs-rex (swank:autodoc '("ri" ("/" "1" "0") swank::%cursor-marker%) :print-right-margin 80) "COMMON-LISP-USER" t 18) (:return (:ok :not-available) 18) (:emacs-rex (swank:autodoc '("rint" ("/" "1" "0") swank::%cursor-marker%) :print-right-margin 80) "COMMON-LISP-USER" t 19) (:return (:ok :not-available) 19) (:emacs-rex (swank:autodoc '("r" ("/" "1" "0") swank::%cursor-marker%) :print-right-margin 80) "COMMON-LISP-USER" t 20) (:return (:ok :not-available) 20) (:emacs-rex (swank:autodoc '(("/" "1" "0") swank::%cursor-marker%) :print-right-margin 80) "COMMON-LISP-USER" t 21) (:return (:ok :not-available) 21) (:emacs-rex (swank:autodoc '("pring" ("/" "1" "0") swank::%cursor-marker%) :print-right-margin 80) "COMMON-LISP-USER" t 22) (:return (:ok :not-available) 22) (:emacs-rex (swank:autodoc '("print" ("/" "1" "0") swank::%cursor-marker%) :print-right-margin 80) "COMMON-LISP-USER" t 23) (:return (:ok "(print ===> object <=== &optional stream)") 23) (:emacs-rex (swank:set-default-directory "/xxx/") "COMMON-LISP-USER" t 24) (:return (:ok "/xxx/") 24) (:emacs-rex (swank:interactive-eval-region "(print (+ 1 0))\n(print (/ 1 0))\n") "COMMON-LISP-USER" t 25) (:return (:ok "/xxx/") 24) (:write-string "\n1 ") (:return (:abort) 25) ---------------------------------------- *scratch* -------------------- (insert (format "\n=>\n%s\n%s" slime-lisp-implementations slime-net-coding-system)) => ((cmucl (/app/lisp/cmucl/2010-04-06/bin/lisp) :coding-system utf-8-unix)) utf-8-unix ============================================================ -- Alex -- alex-goncharov(a)comcast.net --

5 16

[slime-devel] Emacs menus and warnings
by Alex Goncharov 17 Apr '10

17 Apr '10

I used to always see the good menus created by SLIME, such as "Lisp" and "SLIME". These days, I usually see the SLIME-originated menus on the Emacs menu bar ("Lisp", "Presentations" and "SLIME", "REPL") -- but all of them are usually empty. Not always: * Yesterday, after picking up Helmut's changes, I saw the menu items in these menus. * In one instance of Emacs now, I can see only items in the "Lisp" menu. * In another instance of Emacs, all these menus are empty. What drives building these menus? Is there a variable to tweak? Separately, FYI, these are the warnings I get compiling the freshest SLIME: In slime-complete-maybe-restore-window-configuration: slime.el:3620:20:Warning: `last-command-char' is an obsolete variable (as of Emacs at least 19.34); use `last-command-event' instead. slime.el:4717:20:Warning: `next-line' used from Lisp code That command is designed for interactive use only slime.el:4718:20:Warning: `previous-line' used from Lisp code That command is designed for interactive use only In slime-next-line/not-add-newlines: slime.el:4730:10:Warning: `next-line' used from Lisp code That command is designed for interactive use only -- Alex -- alex-goncharov(a)comcast.net --

3 12

[slime-devel] asdf-less swank-loader documentation vs practice
by Matthew Mondor 17 Apr '10

17 Apr '10

Hello, While using CVS HEAD ECL and CVS HEAD Slime, I can using ASDF load the swank server on the ECL side and connect using emacs and slime to that instance, disconnect, reconnect, and everything works fine. However, the documentation at: http://common-lisp.net/project/slime/doc/html/Setting-up-the-lisp-image.htm… suggests that simply loading swank-loader.lisp should also work. Loading the file works fine, but swank:create-server is then an undefined function. Also, the swank package itself doesn't seem to exist then. Thanks, -- Matt

2 2

[slime-devel] Daily ChangeLog diff
by Helmut Eller 16 Apr '10

16 Apr '10

Index: slime/ChangeLog diff -u slime/ChangeLog:1.2065 slime/ChangeLog:1.2066 --- slime/ChangeLog:1.2065 Wed Apr 14 13:51:56 2010 +++ slime/ChangeLog Thu Apr 15 14:01:13 2010 @@ -1,3 +1,9 @@ +2010-04-15 Tobias C. Rittweiler <tcr(a)freebits.de> + + * slime.el (sldb-mode): Include some more commands in its help. + (sldb-goto-last-frame): Do not center to the middle but to the + bottom of the window. + 2010-04-14 Helmut Eller <heller(a)common-lisp.net> * swank.lisp (compile-file-for-emacs): Actually commit the change

1 0

[slime-devel] Daily ChangeLog diff
by Helmut Eller 15 Apr '10

15 Apr '10

Index: slime/ChangeLog diff -u slime/ChangeLog:1.2057 slime/ChangeLog:1.2061 --- slime/ChangeLog:1.2057 Mon Apr 5 23:05:25 2010 +++ slime/ChangeLog Mon Apr 12 14:51:10 2010 @@ -1,3 +1,19 @@ +2010-04-12 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-doc-bindings): Restore key for slime-apropos. + +2010-04-12 Helmut Eller <heller(a)common-lisp.net> + + Fix compile-file for various backends. + + * slime.el (slime-compile-file): Only pass non-nil keyword args to + Lisp. + (slime-simplify-plist): New helper. + (slime-compile-and-load-file): Pass policy parameter directly + without using global variables. + + * swank.lisp (compile-file-for-emacs): Change singature sightly. + 2010-04-06 Stas Boukarev <stassats(a)gmail.com> * slime.el (slime-create-compilation-log): Enable

4 5

[slime-devel] Daily ChangeLog diff
by Helmut Eller 15 Apr '10

15 Apr '10

Index: slime/ChangeLog diff -u slime/ChangeLog:1.2061 slime/ChangeLog:1.2065 --- slime/ChangeLog:1.2061 Mon Apr 12 14:51:10 2010 +++ slime/ChangeLog Wed Apr 14 13:51:56 2010 @@ -1,3 +1,38 @@ +2010-04-14 Helmut Eller <heller(a)common-lisp.net> + + * swank.lisp (compile-file-for-emacs): Actually commit the change + described in 2010-04-12. + +2010-04-14 Helmut Eller <heller(a)common-lisp.net> + + * slime.el ([test] interrupt-encode-message): New test. + +2010-04-14 Helmut Eller <heller(a)common-lisp.net> + + Handle errors during interrupt processing with SLDB. + Bugfix for http://article.gmane.org/gmane.lisp.slime.devel/9641 + + * swank.lisp (invoke-or-queue-interrupt): When the queue is full, + process the interrupt immediately and also handle + SERIOUS-CONDITIONs during interrupt processing in SLDB. SLDB + should work more likely than the interrupted code is expected to + handle the condition. + (with-interrupts-enabled%): Don't check for interrupts when + toggling interrupts off. + (wait-for-event): Add docstring. + +2010-04-14 Helmut Eller <heller(a)common-lisp.net> + + Move error handling and logging from swank-rpc.lisp to swank.lisp + + * swank.lisp (log-event, destructure-case, decode-message) + (encode-message, decode-message, swank-protocol-error): Moved back + to swank.lisp from swank-rpc.lisp. It never belonged there + anyway. + + * swank-rpc.lisp (read-message, write-message): New functions. + (swank-reader-error): New condition. + 2010-04-12 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-doc-bindings): Restore key for slime-apropos.

1 0