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

[slime-devel] AllegroCL looses ability to load a system
by Edi Weitz 02 Jul '04

02 Jul '04

Hi! Sometimes, in the middle of working on an application with SLIME (from CVS) and AllegroCL (7.0 beta) AllegroCL looses the ability to load a system with the ",l" shortcut. I usually start my sessions loading the system I'm currently working on and at this point it works fine but after a couple of breaks, backtraces and whatever it ceases to work. I'm afraid I can't provide an easy test case right now cause I'm in the middle of a project but maybe the attached backtrace is enought for the SLIME gurus. Cheers, Edi. No methods applicable for generic function #<STANDARD-GENERIC-FUNCTION SWANK-BACKEND:OPERATE-ON-SYSTEM> with args ("prodata" "LOAD-OP") of classes (STRING STRING) [Condition of type PROGRAM-ERROR] Restarts: 0: [CONTINUE] Try calling it again 1: [ABORT] Abort SLIME compilation. 2: [ABORT] Abort handling SLIME request. 3: [ABORT] Abort entirely from this (lisp) process. Backtrace: 0: (SWANK::DEBUG-IN-EMACS #<PROGRAM-ERROR @ #x721d29a2>) 1: ((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT)) 2: (SWANK:SWANK-DEBUGGER-HOOK #<PROGRAM-ERROR @ #x721d29a2> #<Function SWANK-DEBUGGER-HOOK>) 3: (CERROR "Try calling it again" PROGRAM-ERROR :FORMAT-CONTROL "No methods applicable for generic function ~s with args ~s of classes ~s" :FORMAT-ARGUMENTS (#<STANDARD-GENERIC-FUNCTION SWANK-BACKEND:OPERATE-ON-SYSTEM> ("prodata" "LOAD-OP") (STRING STRING))) 4: ((METHOD NO-APPLICABLE-METHOD (T)) #<STANDARD-GENERIC-FUNCTION SWANK-BACKEND:OPERATE-ON-SYSTEM> "prodata" "LOAD-OP") 5: ((:INTERNAL SWANK:OPERATE-ON-SYSTEM-FOR-EMACS 0)) 6: (SWANK::MEASURE-TIME-INTERVAL #<Closure (:INTERNAL SWANK:OPERATE-ON-SYSTEM-FOR-EMACS 0) @ #x721d28da>) 7: (SWANK::SWANK-COMPILER #<Closure (:INTERNAL SWANK:OPERATE-ON-SYSTEM-FOR-EMACS 0) @ #x721d28da>) 8: (SWANK:OPERATE-ON-SYSTEM-FOR-EMACS "prodata" "LOAD-OP") 9: (EVAL (SWANK:OPERATE-ON-SYSTEM-FOR-EMACS "prodata" "LOAD-OP")) 10: (SWANK::EVAL-FOR-EMACS (SWANK:OPERATE-ON-SYSTEM-FOR-EMACS "prodata" "LOAD-OP") NIL 104) 11: (FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:OPERATE-ON-SYSTEM-FOR-EMACS "prodata" "LOAD-OP") NIL 104) 12: (SWANK::READ-FROM-EMACS) 13: ((:INTERNAL SWANK::HANDLE-REQUEST 0)) 14: (SWANK::CALL-WITH-REDIRECTED-IO #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/34550 to #1#/34551 @ #x71521512> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/34552 to #1#/34553 @ #x71521452> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x7154e28a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM "" @ #x7154e27a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(4) waiting for input @ #x7154e162> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(3) receive @ #x7154e182> :REPL-THREAD #<MULTIPROCESSING:PROCESS repl-thread(5) @ #x7154e142> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 46 entries @ #x715520b2> :INDENTATION-CACHE-PACKAGES (#<The ACL-SOCKET package> #<The ACLMOP package> #<The ANSI-LOOP package> #<The ASDF package> #<The ASDF2044 package> #<The ASDF2045 package> #<The ASDF2046 package> #<The ASDF2047 package> #<The ASDF2048 package> #<The ASDF2050 package> #<The ASDF2051 package> #<The ASDF2054 package> #<The ASDF2055 package> #<The ASDF2056 package> #<The ASDF2058 package> #<The ASDF2059 package> #<The ASDF2060 package> #<The CL-BASE64 package> #<The CL-BASE64-SYSTEM package> #<The CL-PPCRE package> #<The CL-PPCRE.SYSTEM package> #<The CL-WHO package> #<The CL-WHO.SYSTEM package> #<The CLSQL package> #<The CLSQL-POSTGRESQL package> #<The CLSQL-POSTGRESQL-SYSTEM package> #<The CLSQL-SYS package> #<The CLSQL-SYSTEM package> #<The CLSQL-UFFI package> #<The CLSQL-UFFI-SYSTEM package> #<The CLSQL-USER package> #<The CMUCL-COMPAT package> #<The COMMON-LISP package> #<The COMMON-LISP-CONTROLLER package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.OSI package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G2 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The KMR-MOP package> #<The KMRCL package> #<The KMRCL-SYSTEM package> #<The LEP package> #<The LEP-IO package> #<The MAKE package> #<The MD5 package> #<The MD5-SYSTEM package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The NREGEX package> #<The POSTGRESQL package> #<The PRODATA package> #<The PRODATA.SYSTEM package> #<The PROFILER package> #<The SWANK package> #<The SWANK-BACKEND package> #<The SWANK-COMPLETION-TEST package> #<The SWANK-IO-PACKAGE package> #<The SWANK-LOADER package> #<The SYSTEM package> #<The TBNL package> #<The TBNL-DUMMY package> #<The TBNL-SYSTEM package> #<The TOP-LEVEL package> #<The UFFI package> #<The UFFI-SYSTEM package> #<The URL-REWRITE package> #<The URL-REWRITE-SYSTEM package> #<The XMLS package> #<The XMLS-SYSTEM package>)) #<Function (:INTERNAL SWANK::HANDLE-REQUEST 0)>) 15: (SWANK::HANDLE-REQUEST #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/34550 to #1#/34551 @ #x71521512> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/34552 to #1#/34553 @ #x71521452> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x7154e28a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM "" @ #x7154e27a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(4) waiting for input @ #x7154e162> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(3) receive @ #x7154e182> :REPL-THREAD #<MULTIPROCESSING:PROCESS repl-thread(5) @ #x7154e142> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 46 entries @ #x715520b2> :INDENTATION-CACHE-PACKAGES (#<The ACL-SOCKET package> #<The ACLMOP package> #<The ANSI-LOOP package> #<The ASDF package> #<The ASDF2044 package> #<The ASDF2045 package> #<The ASDF2046 package> #<The ASDF2047 package> #<The ASDF2048 package> #<The ASDF2050 package> #<The ASDF2051 package> #<The ASDF2054 package> #<The ASDF2055 package> #<The ASDF2056 package> #<The ASDF2058 package> #<The ASDF2059 package> #<The ASDF2060 package> #<The CL-BASE64 package> #<The CL-BASE64-SYSTEM package> #<The CL-PPCRE package> #<The CL-PPCRE.SYSTEM package> #<The CL-WHO package> #<The CL-WHO.SYSTEM package> #<The CLSQL package> #<The CLSQL-POSTGRESQL package> #<The CLSQL-POSTGRESQL-SYSTEM package> #<The CLSQL-SYS package> #<The CLSQL-SYSTEM package> #<The CLSQL-UFFI package> #<The CLSQL-UFFI-SYSTEM package> #<The CLSQL-USER package> #<The CMUCL-COMPAT package> #<The COMMON-LISP package> #<The COMMON-LISP-CONTROLLER package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.OSI package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G2 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The KMR-MOP package> #<The KMRCL package> #<The KMRCL-SYSTEM package> #<The LEP package> #<The LEP-IO package> #<The MAKE package> #<The MD5 package> #<The MD5-SYSTEM package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The NREGEX package> #<The POSTGRESQL package> #<The PRODATA package> #<The PRODATA.SYSTEM package> #<The PROFILER package> #<The SWANK package> #<The SWANK-BACKEND package> #<The SWANK-COMPLETION-TEST package> #<The SWANK-IO-PACKAGE package> #<The SWANK-LOADER package> #<The SYSTEM package> #<The TBNL package> #<The TBNL-DUMMY package> #<The TBNL-SYSTEM package> #<The TOP-LEVEL package> #<The UFFI package> #<The UFFI-SYSTEM package> #<The URL-REWRITE package> #<The URL-REWRITE-SYSTEM package> #<The XMLS package> #<The XMLS-SYSTEM package>))) 16: ((:INTERNAL SWANK::REPL-LOOP 0)) 17: (SWANK::CALL-WITH-REDIRECTED-IO #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/34550 to #1#/34551 @ #x71521512> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/34552 to #1#/34553 @ #x71521452> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x7154e28a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM "" @ #x7154e27a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(4) waiting for input @ #x7154e162> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(3) receive @ #x7154e182> :REPL-THREAD #<MULTIPROCESSING:PROCESS repl-thread(5) @ #x7154e142> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 46 entries @ #x715520b2> :INDENTATION-CACHE-PACKAGES (#<The ACL-SOCKET package> #<The ACLMOP package> #<The ANSI-LOOP package> #<The ASDF package> #<The ASDF2044 package> #<The ASDF2045 package> #<The ASDF2046 package> #<The ASDF2047 package> #<The ASDF2048 package> #<The ASDF2050 package> #<The ASDF2051 package> #<The ASDF2054 package> #<The ASDF2055 package> #<The ASDF2056 package> #<The ASDF2058 package> #<The ASDF2059 package> #<The ASDF2060 package> #<The CL-BASE64 package> #<The CL-BASE64-SYSTEM package> #<The CL-PPCRE package> #<The CL-PPCRE.SYSTEM package> #<The CL-WHO package> #<The CL-WHO.SYSTEM package> #<The CLSQL package> #<The CLSQL-POSTGRESQL package> #<The CLSQL-POSTGRESQL-SYSTEM package> #<The CLSQL-SYS package> #<The CLSQL-SYSTEM package> #<The CLSQL-UFFI package> #<The CLSQL-UFFI-SYSTEM package> #<The CLSQL-USER package> #<The CMUCL-COMPAT package> #<The COMMON-LISP package> #<The COMMON-LISP-CONTROLLER package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.OSI package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G2 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The KMR-MOP package> #<The KMRCL package> #<The KMRCL-SYSTEM package> #<The LEP package> #<The LEP-IO package> #<The MAKE package> #<The MD5 package> #<The MD5-SYSTEM package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The NREGEX package> #<The POSTGRESQL package> #<The PRODATA package> #<The PRODATA.SYSTEM package> #<The PROFILER package> #<The SWANK package> #<The SWANK-BACKEND package> #<The SWANK-COMPLETION-TEST package> #<The SWANK-IO-PACKAGE package> #<The SWANK-LOADER package> #<The SYSTEM package> #<The TBNL package> #<The TBNL-DUMMY package> #<The TBNL-SYSTEM package> #<The TOP-LEVEL package> #<The UFFI package> #<The UFFI-SYSTEM package> #<The URL-REWRITE package> #<The URL-REWRITE-SYSTEM package> #<The XMLS package> #<The XMLS-SYSTEM package>)) #<Closure (:INTERNAL SWANK::REPL-LOOP 0) @ #x7154e302>) 18: (SWANK::REPL-LOOP #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/34550 to #1#/34551 @ #x71521512> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/34552 to #1#/34553 @ #x71521452> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x7154e28a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM "" @ #x7154e27a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(4) waiting for input @ #x7154e162> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(3) receive @ #x7154e182> :REPL-THREAD #<MULTIPROCESSING:PROCESS repl-thread(5) @ #x7154e142> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 46 entries @ #x715520b2> :INDENTATION-CACHE-PACKAGES (#<The ACL-SOCKET package> #<The ACLMOP package> #<The ANSI-LOOP package> #<The ASDF package> #<The ASDF2044 package> #<The ASDF2045 package> #<The ASDF2046 package> #<The ASDF2047 package> #<The ASDF2048 package> #<The ASDF2050 package> #<The ASDF2051 package> #<The ASDF2054 package> #<The ASDF2055 package> #<The ASDF2056 package> #<The ASDF2058 package> #<The ASDF2059 package> #<The ASDF2060 package> #<The CL-BASE64 package> #<The CL-BASE64-SYSTEM package> #<The CL-PPCRE package> #<The CL-PPCRE.SYSTEM package> #<The CL-WHO package> #<The CL-WHO.SYSTEM package> #<The CLSQL package> #<The CLSQL-POSTGRESQL package> #<The CLSQL-POSTGRESQL-SYSTEM package> #<The CLSQL-SYS package> #<The CLSQL-SYSTEM package> #<The CLSQL-UFFI package> #<The CLSQL-UFFI-SYSTEM package> #<The CLSQL-USER package> #<The CMUCL-COMPAT package> #<The COMMON-LISP package> #<The COMMON-LISP-CONTROLLER package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.OSI package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G2 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The KMR-MOP package> #<The KMRCL package> #<The KMRCL-SYSTEM package> #<The LEP package> #<The LEP-IO package> #<The MAKE package> #<The MD5 package> #<The MD5-SYSTEM package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The NREGEX package> #<The POSTGRESQL package> #<The PRODATA package> #<The PRODATA.SYSTEM package> #<The PROFILER package> #<The SWANK package> #<The SWANK-BACKEND package> #<The SWANK-COMPLETION-TEST package> #<The SWANK-IO-PACKAGE package> #<The SWANK-LOADER package> #<The SYSTEM package> #<The TBNL package> #<The TBNL-DUMMY package> #<The TBNL-SYSTEM package> #<The TOP-LEVEL package> #<The UFFI package> #<The UFFI-SYSTEM package> #<The URL-REWRITE package> #<The URL-REWRITE-SYSTEM package> #<The XMLS package> #<The XMLS-SYSTEM package>))) 19: ((:INTERNAL SWANK::SPAWN-THREADS-FOR-CONNECTION 2))

2 2

[slime-devel] Allegro error I've been getting lately
by Peter Seibel 02 Jul '04

02 Jul '04

Every so often something I do at the REPL in Allegro (6.2 on GNU/Linux) will confuse SLIME. I'll see this message in the minibuffer and will get no response. error in process filter: No frame at point If I hit return a couple times I get: ; No value and the prompt back. Here's an elisp backtrace: Debugger entered--Lisp error: (error "No frame at point") signal(error ("No frame at point")) error("No frame at point") (cond (frame (car frame)) (t (error "No frame at point"))) (let ((frame ...)) (cond (frame ...) (t ...))) sldb-frame-number-at-point() (save-excursion (sldb-backward-frame) (sldb-frame-number-at-point)) sldb-previous-frame-number() (let ((number ...)) (cond (...) (t ...))) (save-excursion (mapc (function sldb-insert-frame) frames) (let (...) (cond ... ...))) (if (null frames) nil (when maximum-length (assert ...)) (save-excursion (mapc ... frames) (let ... ...))) (unless (null frames) (when maximum-length (assert ...)) (save-excursion (mapc ... frames) (let ... ...))) sldb-insert-frames(((0 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x717506aa>)" 0 52 ...) (:location ... ... nil)) (1 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) (:location ... ... nil)) (2 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x717506aa> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) (:location ... ... nil)) (3 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) (:error "Unknown source location for ERROR")) (4 #("(READ #1=#<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> NIL #1#)" 0 85 ...) (:error "Unknown source location for READ")) (5 #("(SWANK::EVAL-REGION \"(tpl:processes)\n\" T)" 0 41 ...) (:location ... ... nil)) (6 #("((:INTERNAL SWANK:LISTENER-EVAL 0))" 0 35 ...) (:location ... ... nil)) (7 #("((METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<Closure (:INTERNAL SWANK:LISTENER-EVAL 0) @ #x71750632>)" 0 109 ...) (:location ... ... nil)) (8 #("(SWANK:LISTENER-EVAL \"(tpl:processes)\n\")" 0 40 ...) (:location ... ... nil)) (9 #("(EVAL (SWANK:LISTENER-EVAL \"(tpl:processes)\n\"))" 0 47 ...) (:error "Unknown source location for EVAL")) (10 #("(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 78 ...) (:location ... ... nil)) (11 #("(FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 86 ...) (:error "Unknown source location for FUNCALL")) (12 #("(SWANK::READ-FROM-EMACS)" 0 24 ...) (:location ... ... nil)) (13 #("(SWANK::SLDB-LOOP 6)" 0 20 ...) (:location ... ... nil)) (14 #("((:INTERNAL SWANK::DEBUG-IN-EMACS 0))" 0 37 ...) (:location ... ... nil)) (15 #("((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<Function (:INTERNAL SWANK::DEBUG-IN-EMACS 0)>)" 0 108 ...) (:location ... ... nil)) (16 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x7183d94a>)" 0 52 ...) (:location ... ... nil)) (17 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) (:location ... ... nil)) (18 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x7183d94a> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) (:location ... ... nil)) (19 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7183d932> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) (:error "Unknown source location for ERROR"))) nil) (if (equal sldb-level level) nil (setq buffer-read-only nil) (sldb-mode) (unless sldb-saved-window-configuration (setq sldb-saved-window-configuration ...)) (setq slime-current-thread thread) (setq sldb-level level) (setq mode-name (format "sldb[%d]" sldb-level)) (setq sldb-condition condition) (setq sldb-restarts restarts) (sldb-insert-condition condition) (insert (in-sldb-face section #("Restarts:" 0 9 ...)) "\n") (sldb-insert-restarts restarts) (insert "\n" (in-sldb-face section #("Backtrace:" 0 10 ...)) "\n") (setq sldb-backtrace-start-marker (point-marker)) (sldb-insert-frames (sldb-prune-initial-frames frames) nil) (run-hooks (quote sldb-hook)) (pop-to-buffer (current-buffer)) (setq buffer-read-only t) (when (and slime-stack-eval-tags ...) (recursive-edit))) (unless (equal sldb-level level) (setq buffer-read-only nil) (sldb-mode) (unless sldb-saved-window-configuration (setq sldb-saved-window-configuration ...)) (setq slime-current-thread thread) (setq sldb-level level) (setq mode-name (format "sldb[%d]" sldb-level)) (setq sldb-condition condition) (setq sldb-restarts restarts) (sldb-insert-condition condition) (insert (in-sldb-face section #("Restarts:" 0 9 ...)) "\n") (sldb-insert-restarts restarts) (insert "\n" (in-sldb-face section #("Backtrace:" 0 10 ...)) "\n") (setq sldb-backtrace-start-marker (point-marker)) (sldb-insert-frames (sldb-prune-initial-frames frames) nil) (run-hooks (quote sldb-hook)) (pop-to-buffer (current-buffer)) (setq buffer-read-only t) (when (and slime-stack-eval-tags ...) (recursive-edit))) (save-current-buffer (set-buffer (sldb-get-buffer thread)) (unless (equal sldb-level level) (setq buffer-read-only nil) (sldb-mode) (unless sldb-saved-window-configuration ...) (setq slime-current-thread thread) (setq sldb-level level) (setq mode-name ...) (setq sldb-condition condition) (setq sldb-restarts restarts) (sldb-insert-condition condition) (insert ... "\n") (sldb-insert-restarts restarts) (insert "\n" ... "\n") (setq sldb-backtrace-start-marker ...) (sldb-insert-frames ... nil) (run-hooks ...) (pop-to-buffer ...) (setq buffer-read-only t) (when ... ...))) (with-current-buffer (sldb-get-buffer thread) (unless (equal sldb-level level) (setq buffer-read-only nil) (sldb-mode) (unless sldb-saved-window-configuration ...) (setq slime-current-thread thread) (setq sldb-level level) (setq mode-name ...) (setq sldb-condition condition) (setq sldb-restarts restarts) (sldb-insert-condition condition) (insert ... "\n") (sldb-insert-restarts restarts) (insert "\n" ... "\n") (setq sldb-backtrace-start-marker ...) (sldb-insert-frames ... nil) (run-hooks ...) (pop-to-buffer ...) (setq buffer-read-only t) (when ... ...))) sldb-setup(1 7 (#("The symbol \"PROCESSES\" is not external in the TOP-LEVEL package. [file\nposition = 14]" 0 85 (face sldb-topline-face)) #(" [Condition of type READER-ERROR]" 0 35 (face sldb-condition-face)) nil) ((#("RETURN-VALUE" 0 12 ...) #("Return a value instead of calling PROCESSES." 0 44 ...)) (#("USE-VALUE" 0 9 ...) #("Try calling a function other than PROCESSES." 0 44 ...)) (#("STORE-VALUE" 0 11 ...) #("Setf the symbol-function of PROCESSES and call it again." 0 56 ...)) (#("ABORT" 0 5 ...) #("Abort handling SLIME request." 0 29 ...)) (#("ABORT" 0 5 ...) #("Abort entirely from this process." 0 33 ...))) ((0 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x717506aa>)" 0 52 ...) (:location ... ... nil)) (1 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) (:location ... ... nil)) (2 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x717506aa> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) (:location ... ... nil)) (3 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) (:error "Unknown source location for ERROR")) (4 #("(READ #1=#<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> NIL #1#)" 0 85 ...) (:error "Unknown source location for READ")) (5 #("(SWANK::EVAL-REGION \"(tpl:processes)\n\" T)" 0 41 ...) (:location ... ... nil)) (6 #("((:INTERNAL SWANK:LISTENER-EVAL 0))" 0 35 ...) (:location ... ... nil)) (7 #("((METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<Closure (:INTERNAL SWANK:LISTENER-EVAL 0) @ #x71750632>)" 0 109 ...) (:location ... ... nil)) (8 #("(SWANK:LISTENER-EVAL \"(tpl:processes)\n\")" 0 40 ...) (:location ... ... nil)) (9 #("(EVAL (SWANK:LISTENER-EVAL \"(tpl:processes)\n\"))" 0 47 ...) (:error "Unknown source location for EVAL")) (10 #("(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 78 ...) (:location ... ... nil)) (11 #("(FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 86 ...) (:error "Unknown source location for FUNCALL")) (12 #("(SWANK::READ-FROM-EMACS)" 0 24 ...) (:location ... ... nil)) (13 #("(SWANK::SLDB-LOOP 6)" 0 20 ...) (:location ... ... nil)) (14 #("((:INTERNAL SWANK::DEBUG-IN-EMACS 0))" 0 37 ...) (:location ... ... nil)) (15 #("((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<Function (:INTERNAL SWANK::DEBUG-IN-EMACS 0)>)" 0 108 ...) (:location ... ... nil)) (16 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x7183d94a>)" 0 52 ...) (:location ... ... nil)) (17 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) (:location ... ... nil)) (18 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x7183d94a> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) (:location ... ... nil)) (19 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7183d932> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) (:error "Unknown source location for ERROR")))) slime-dispatch-event((:debug 1 7 (#("The symbol \"PROCESSES\" is not external in the TOP-LEVEL package. [file\nposition = 14]" 0 85 ...) #(" [Condition of type READER-ERROR]" 0 35 ...) nil) ((#("RETURN-VALUE" 0 12 ...) #("Return a value instead of calling PROCESSES." 0 44 ...)) (#("USE-VALUE" 0 9 ...) #("Try calling a function other than PROCESSES." 0 44 ...)) (#("STORE-VALUE" 0 11 ...) #("Setf the symbol-function of PROCESSES and call it again." 0 56 ...)) (#("ABORT" 0 5 ...) #("Abort handling SLIME request." 0 29 ...)) (#("ABORT" 0 5 ...) #("Abort entirely from this process." 0 33 ...))) ((0 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x717506aa>)" 0 52 ...) ...) (1 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) ...) (2 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x717506aa> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) ...) (3 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) ...) (4 #("(READ #1=#<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> NIL #1#)" 0 85 ...) ...) (5 #("(SWANK::EVAL-REGION \"(tpl:processes)\n\" T)" 0 41 ...) ...) (6 #("((:INTERNAL SWANK:LISTENER-EVAL 0))" 0 35 ...) ...) (7 #("((METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<Closure (:INTERNAL SWANK:LISTENER-EVAL 0) @ #x71750632>)" 0 109 ...) ...) (8 #("(SWANK:LISTENER-EVAL \"(tpl:processes)\n\")" 0 40 ...) ...) (9 #("(EVAL (SWANK:LISTENER-EVAL \"(tpl:processes)\n\"))" 0 47 ...) ...) (10 #("(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 78 ...) ...) (11 #("(FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 86 ...) ...) (12 #("(SWANK::READ-FROM-EMACS)" 0 24 ...) ...) (13 #("(SWANK::SLDB-LOOP 6)" 0 20 ...) ...) (14 #("((:INTERNAL SWANK::DEBUG-IN-EMACS 0))" 0 37 ...) ...) (15 #("((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<Function (:INTERNAL SWANK::DEBUG-IN-EMACS 0)>)" 0 108 ...) ...) (16 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x7183d94a>)" 0 52 ...) ...) (17 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) ...) (18 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x7183d94a> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) ...) (19 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7183d932> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) ...))) #<process SLIME Lisp>) slime-process-available-input() slime-net-filter(#<process SLIME Lisp> " (17 \"((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))\" (:location (:file \"/home/peter/cvs/slime/swank.lisp\") (:position 39988) nil)) (18 \"(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x7183d94a> #<Function SWANK-DEBUGGER-HOOK>)\" (:location (:file \"/home/peter/cvs/slime/swank.lisp\") (:position 39988) nil)) (19 \"(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \\\"(tpl:processes)\\\" pos 14 @ #x7183d932> :FORMAT-CONTROL \\\"~?~@[ [file position = ~d]~]\\\" :FORMAT-ARGUMENTS (\\\"~\nThe symbol ~s is not external in the ~a package.\\\" (\\\"PROCESSES\\\" \\\"TOP-LEVEL\\\") 14))\" (:error \"Unknown source location for ERROR\"))))\n..(:debug-activate 1 7)\n") -Peter -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

1 1

[slime-devel] downcased symbols inserted by SLIME-INSERT-ARGLIST
by Thomas Schilling 02 Jul '04

02 Jul '04

Would be nice if the above would be the case. (Could try to implement it myself, but I think it's faster to post my request here than to figure out how to do it-- haven't done any bigger emacs programming yet.) Thanks. -ts -- ,, \../ / <<< The LISP Effect |_\\ _==__ __ | |bb| | _________________________________________________

2 2

[slime-devel] return value
by Rolf Wester 02 Jul '04

02 Jul '04

Hi, I just started using SLIME and have a question concerning the output of return values. Is is possible to get return values printed into the *slime-repl* buffer instead of into the mini-buffer? Regards Rolf

2 1

[slime-devel] Incomplete check of *features* in slime-lispworks.lisp
by peder＠klingenberg.no 02 Jul '04

02 Jul '04

At least in my version of lispworks 4.2, the *feature* contains :LISPWORKS4.2, but no :LISPWORKS-4.2. This breaks the test for LW 4.3 or above in slime-lispworks.lisp. The following simple patch agains CVS HEAD fixes it for me. I've left the existing symbols in place in case this is something that changes with patchlevel or something, and included LISPWORKS4.1 for completeness. =================================================================== RCS file: /project/slime/cvsroot/slime/swank-lispworks.lisp,v retrieving revision 1.50 diff -u -b -r1.50 swank-lispworks.lisp --- swank-lispworks.lisp 1 Jul 2004 06:33:18 -0000 1.50 +++ swank-lispworks.lisp 2 Jul 2004 07:59:18 -0000 @@ -380,7 +380,7 @@ (*readtable* ,readtable)) ,@body))))) -#-(or lispworks-4.1 lispworks-4.2) ; no dspec:parse-form-dspec prior to 4.3 +#-(or lispworks-4.1 lispworks-4.2 lispworks4.1 lispworks4.2) ; no dspec:parse-form-dspec prior to 4.3 (defun dspec-stream-position (stream dspec) (with-fairly-standard-io-syntax (loop (let* ((pos (file-position stream)) ...Peder... -- Sløv uten dop.

2 2

[slime-devel] when *, ** and *** just aren't enough.
by Marco Baringer 02 Jul '04

02 Jul '04

the attached patch allows you to get at any object ever returned by any form in the repl. Considering the way I use to repl this is rather conveinent (though maybe keeping a reference to every object ever returned is a bit much...). i have a few questions (more or less related to this): 1) anybody ever feel that they'd like to get at an objcet returned a while ago? 2) just out of idle curiosity how do you guys use the repl? i know some people basically don't use it, prefering to do everything from buffers, is that common? 3) how the hell do i override the M-RET binding? (in this patch the "magic" key is ?\, but i'd prefer M-RET as that'd be consist with slime-inspector-copy-down) 4) this patch will probbaly break badly when *print-base*, *print-pretty* or other printing variables have non default values. anyway, comments welcome. -- -Marco Ring the bells that still can ring. Forget your perfect offering. There is a crack in everything. That's how the light gets in. -Leonard Cohen

2 1

[slime-devel] Re: lisp restart
by Andras Simon 01 Jul '04

01 Jul '04

Luke Gorrie's other self <luke(a)bluetail.com> writes in c.l.l: > marcelin7(a)yahoo.com (Nelson Marcelino) writes: > > > Hi all, > > > > is there a way to reset lisp without having to exit from SLIME? > > The undocumented way that I do it is to kill the *inferior-lisp* > buffer (i.e. the lisp process) and then do `M-x slime' > again. Alternatively you could do ,quit in the REPL, but that'll wipe > out your old REPL history. I've been meaning to ask about this for some time: why is ,sayoonara so eager to remove all traces of lisp activity? Andras

4 4

Re: [slime-devel] Re: Symbols in COMMON-LISP are all in UPPER CASE!
by Pascal J.Bourguignon 01 Jul '04

01 Jul '04

Thomas Schilling writes: > Hey, no offence intended. Yeah, it was late. I didn't thought it out to > the end. No problem, ilisp made the same omission. ;-) > I meant that there may be the chance for problems when someone (for > whatever reason) switched symbols to be lower-case. But there aren't, > since when we use case-insensitive matching the case of _both_ symbols > (the one to be matched and the one from the list of allowed symbols) is > dispensible. -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein

1 0

Re: [slime-devel] Bug in slime with LW
by Bill_Clementson＠peoplesoft.com 01 Jul '04

01 Jul '04

Helmut Eller <e9626484(a)stud3.tuwien.ac.at> writes: > Alain.Picard(a)memetrics.com writes: > > > Any clues? This is a CVS from Thu Jul 1 2004. > > The problem was that the a condition was signalled when the debugger > tried to produce the backtrace (the condition is usually handled); > with *break-on-signals* to the debugger was invoked recursively and > producing the backtrace signalled a condition ... > > Should be fixed now. The workaround was to bind *break-on-signals* > before getting the backtrace. We probably should do that in some more > places. Great! As a side-effect, this also fixed the bug that I reported on June 25th with the subject line "LispWorks debugger bug". Two bugs fixed for the price of one! - Bill

1 0

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 01 Jul '04

01 Jul '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.443 slime/ChangeLog:1.452 --- slime/ChangeLog:1.443 Tue Jun 29 15:07:00 2004 +++ slime/ChangeLog Wed Jun 30 23:35:50 2004 @@ -1,3 +1,49 @@ +2004-07-01 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * swank-lispworks.lisp (frame-actual-args): Bind + *break-on-signals* to nil and special case &rest, &optional, and + &key. + +2004-07-01 Luke Gorrie <luke(a)bluetail.com> + + * slime.el (sldb-lookup-reference): Preserve case in SBCL node + names. Previously they were downcased, but the HTML manual's + filenames seem to have changed. + + * NEWS: Added security note about the TCP server. + Added notes for ACL and ABCL. + + * doc/slime.texi: General updatings for an alpha release. + +2004-06-30 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * slime.el (slime-display-compilation-output): New customizable + variable. + + * swank.lisp: Minor cleanups. + (find-symbol-designator, find-symbol-or-lose) + (case-convert-input): Deleted. Replaced with calls to + parse-symbol{-or-lose}. + + * swank-lispworks.lisp (describe-symbol-for-emacs): Include + information about setf-functions. + (emacs-connected): Add a default method to + env-internals:environment-display-debugger. + +2004-06-30 Luke Gorrie <luke(a)bluetail.com> + + * slime.el (slime-read-port-and-connect-to-running-swank) + (slime-connect, slime-open-stream-to-lisp): Replace "localhost" + with "127.0.0.1". This is believed to avoid unwanted DNS lookups + on certain operating systems. The lookups can become crippling if + the DNS server isn't available. + (line-beginning-position, line-end-position): Simple bugfix + suggested by Richard Klinda. + + * swank-sbcl.lisp (preferred-communication-style): Choose + :fd-handler instead of :sigio when threads aren't available. A lot + of people seem to have had problems with :sigio on SBCL. + 2004-06-30 Luke Gorrie <luke(a)bluetail.com> * NEWS: Wrote preliminary release notes for alpha-1. @@ -54,19 +100,19 @@ * swank-allegro.lisp (nth-frame): Skip frames where frame-visible-p is false. - * slime.el (slime-buffer-package): Return the cached package if - can't something more sensible; this reverts a previous change. - The Lisp side will now fall back to an existing package if the one - supplied by Emacs doesn't exist. Using the cached version is also - necessary for some commands in the apropos buffer. + * slime.el (slime-buffer-package): Return the cached package if we + can't find something more sensible; this reverts a previous + change. The Lisp side will now fall back to an existing package + if the one supplied by Emacs doesn't exist. Using the cached + version is also necessary for some commands in the apropos buffer. (sldb-insert-frame): Set the default-action property; pressing RET on frame lines now shows/hides details. (sldb-toggle-details): Preserve the current column. (slime-inspector-buffer, slime-saved-window-config) (slime-inspector-quit): Save and restore the window configuration. (slime-highlight-suppressed-forms, slime-search-suppressed-forms): - Display expressions with reader conditionals (#+/#-) where the - test is false in font-lock-comment-face. No implemented for + Display expressions with reader conditionals (#+/#-) in + font-lock-comment-face if the test is false. Not implemented for XEmacs. (repl-return): New test.

1 0