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

[slime-devel] SLIME broken for OpenMCL
by David Steuber 20 Nov '04

20 Nov '04

In current CVS HEAD using Carbon Emacs from CVS (2004-10-29) and OpenMCL I'm thrown immediately into the debugger when I do M-x slime. a does not get me out: In the *sldb* buffer: No applicable method for args: (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>) to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146> [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT] #<RESTART ABORT #xC8F76> 1: [ABORT-BREAK] #<RESTART ABORT-BREAK #xC8F9E> Backtrace: 0: (#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>) 1: (CCL::EVENT-POLL) 2: (CCL::HOUSEKEEPING) 3: (#<Anonymous Function #x60F911E>) In the *slime-events* buffer: (:emacs-rex (swank:connection-info) nil t 1) (:open-dedicated-output-stream 52683) (:indentation-update (("with-lock-grabbed-maybe" . 1) ("with-ioblock-input-locked" . 1) ("with-package-write-lock" . 1) ("with-slot-values" . 2) ("with-eagain" . 2) ("without-gcing" . 0) ("with-restart" . 1) ("with-auxiliary-foreign-types" . 0) ("with-ppc-local-vinsn-macros" . 1) ("with-package-read-lock" . 1) ("while" . 1) ("%ilogior" . 1) ("with-call-method-context" . 1) ("with-dll-node-freelist" . 1) ("with-open-dir" . 1) ("ignoring-without-interrupts" . 0) ("with-area-macptr" . 1) ("with-standard-abort-handling" . 1) ("once-only" . 1) ("def-kernel-restart" . 3) ...)) (:return (:ok (25784 "OpenMCL" "openmcl" (:cltl2 :mcl2\.0 :primary-classes :ccl :ccl-2 :ccl-3 :ccl-4 :coral :common-lisp :mcl :openmcl :ansi-cl :processes :unix :openmcl-native-threads :openmcl-partial-mop :mcl-common-mop-subset :openmcl-mop-2 :interfaces-2 :powerpc ...) :spawn)) 1) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 2) (:return (:abort) 2) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 3) (:return (:abort) 3) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 4) (:return (:abort) 4) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 5) (:return (:abort) 5) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:sldb-abort) nil 0 6) (:return (:abort) 6) (:debug-return 0 1 nil) (:debug 0 1 ("No applicable method for args:\n (#<SWANK-BACKEND::SLIME-INPUT-STREAM #x649EA86>)\n to #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>" " [Condition of type SIMPLE-ERROR]" nil nil) (("ABORT" "#<RESTART ABORT #xC8F76>") ("ABORT-BREAK" "#<RESTART ABORT-BREAK #xC8F9E>")) ((0 "(#<CCL::STANDARD-KERNEL-METHOD NO-APPLICABLE-METHOD (T)> #<STANDARD-GENERIC-FUNCTION STREAM-FORCE-OUTPUT #x60C1146>)") (1 "(CCL::EVENT-POLL)") (2 "(CCL::HOUSEKEEPING)") (3 "(#<Anonymous Function #x60F911E>)"))) (:debug-activate 0 1) (:emacs-rex (swank:backtrace 4 43) nil 0 7) (:return (:ok nil) 7) (:debug-activate 0 1)

3 7

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 19 Nov '04

19 Nov '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.570 slime/ChangeLog:1.572 --- slime/ChangeLog:1.570 Thu Nov 18 18:36:12 2004 +++ slime/ChangeLog Fri Nov 19 20:11:41 2004 @@ -1,3 +1,74 @@ +2004-11-19 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-net-coding-system): New variable. Specifies the + coding system to use for network communication. The default is + iso-latin-1 and should work for all Lisps. Only a small set of + coding systems is currently supported. + (slime-net-valid-coding-systems): New variable. A list of coding + systems which may be used. + (slime-check-coding-system, slime-coding-system-mulibyte-p) + (slime-coding-system-cl-name): New utility function for coding + systems. + (slime-net-connect, slime-make-net-buffer, + slime-open-stream-to-lisp): Use it. + (slime-net-decode-length, slime-net-encode-length): Renamed from + slime-net-read3 and slime-net-enc3. The length is now encoded as + a 6 char hex string. + + * swank.lisp (*coding-system*): New variable. + (start-server): Accept external-format as argument. + (create-server, create-swank-server, setup-server) + (serve-connection, open-dedicated-output-stream) + (create-connection): Ditto. + (defstruct connection): Add external-format slot. + (decode-message-length): New function for new length encoding. + (decode-message): Use it. + (encode-message): Use new encoding. + + * swank-cmucl.lisp (accept-connection): Accept external-format + argument. + (inspect-for-emacs): Add CMUCL specific versions for array and + vectors. + + * swank-sbcl.lisp, swank-openmcl.lisp, swank-lispworks.lisp, + swank-clisp.lisp, swank-backend.lisp, swank-allegro.lisp, + swank-abcl.lisp (accept-connection): Accept :external-format as + argument. + +2004-11-19 Matthew Danish <mrd+nospam(a)cmu.edu> + + * swank-allegro.lisp: (count-cr): New function. Convert + file-offsets to match Emacs' eol-conventions. + (find-definition-in-file): Use it. + + * slime.el (slime-insert-xrefs): Display the multi-line label much + more cleanly. + +2004-11-19 Helmut Eller <heller(a)common-lisp.net> + + * swank-sbcl.lisp (thread-status): Decode the thread-state-slot + instead of returning ???. + + * swank-allegro.lisp (swank-mop:slot-definition-documentation): + ACL 7 says documentation should have 2 args. So, pass t as second + argument. + (fspec-primary-name): Recurse until we have a symbol. + (allegro-inspect): New function. Mostly reverse engineered from + ACL's native inspector. + (inspect-for-emacs (t), inspect-for-emacs (function)): Use it. + + * wank.lisp (inspect-for-emacs array): Use row-major-aref instead + of a displaced array. I hope that does the same. + (inspect-for-emacs integer): Ignore errors in + decode-universal-time. Negative values and, in SBCL, also small + values cannot be decoded. + (list-threads): Include the thread-id. Useful for SLIME debugging. + + * slime.el (slime-list-threads, slime-thread-insert): Show the + thread-id. + (slime-thread-control-mode-map): Remove the binding for the + no-longer-existent slime-thread-goahead command. + 2004-11-18 Alexey Dejneka <adejneka(a)comail.ru> * swank.lisp (inspect-for-emacs): Fix bug in handling of arrays

1 0

[slime-devel] [PATCH] fix for bad source position in ACL6.2/win32
by Matthew Danish 19 Nov '04

19 Nov '04

Allegro 6.2 reports source position of definitions by file-position, which does not properly account for line-ending encoding. This means that a file with carriage returns will cause all reported positions to appear to be offset from the actual definition in the emacs buffer. This is assuming that your emacs is properly understanding the line-ending encoding and is not displaying a bunch of ^Ms at the end of every line. This quick hack counts the number of carriage returns that need to be subtracted from the file-position. It runs quickly enough on large (15msec to count CRs for 4481 lines in a file I am testing) files that I think it should be acceptable, unless someone has a better idea. I don't know if 7.0 has this problem as well; if not then this could be conditionalized. diff -u -r1.61 swank-allegro.lisp --- swank-allegro.lisp 25 Oct 2004 16:17:11 -0000 1.61 +++ swank-allegro.lisp 18 Nov 2004 22:12:25 -0000 @@ -274,10 +274,22 @@ (symbol (string fspec)) (list (string (second fspec))))) +(defun count-cr (file pos) + (let* ((bufsize 256) + (buf (make-array bufsize :element-type '(unsigned-byte 8))) + (cr-count 0)) + (with-open-file (stream file :direction :input) + (loop for bytes-read = (read-sequence buf stream) do + (incf cr-count (count (char-code #\return) buf + :end (min pos bytes-read))) + (decf pos bytes-read) + (when (<= pos 0) + (return cr-count)))))) + (defun find-definition-in-file (fspec type file) (let* ((start (scm:find-definition-in-file fspec type file)) (pos (if start - (list :position (1+ start)) + (list :position (1+ (- start (count-cr file start)))) (list :function-name (fspec-primary-name fspec))))) (make-location (list :file (namestring (truename file))) pos))) -- ;; Matthew Danish -- user: mrd domain: cmu.edu ;; OpenPGP public key: C24B6010 on keyring.debian.org

2 2

[slime-devel] CMUCL 19a: NIL is not of type SWANK::CONNECTION
by Chisheng Huang 19 Nov '04

19 Nov '04

Greetings, After I did a "cvs update" at 2004-11-18 20:23Z, I got a bunch of warning messages in the *inferior-lisp* buffer: Warning: (FUNCALL *GC-NOTIFY-BEFORE* LISP::PRE-GC-DYN-USAGE) lost: Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER: NIL is not of type SWANK::CONNECTION Warning: (FUNCALL *GC-NOTIFY-AFTER* LISP::POST-GC-DYN-USAGE LISP::BYTES-FREED LISP::*GC-TRIGGER*) lost: Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER: NIL is not of type SWANK::CONNECTION Slime retrieved by cvs update -D "2004-11-12" does not have this problem. Slime retrieved by cvs update -D "2004-11-16" does. Would somebody please look into this? Thanks a lot. Best, -cph PS. I'm using CMUCL 19a (x86/Linux) and GNU Emacs 21.3.1.

2 1

[slime-devel] [PATCH] cleanup of xref display
by Matthew Danish 19 Nov '04

19 Nov '04

This makes longer xref labels display much more cleanly than before. This is especially important for systems like Allegro which include a lot of information in the fspec designators. diff -u -r1.423 slime.el --- slime.el 15 Nov 2004 22:42:50 -0000 1.423 +++ slime.el 18 Nov 2004 22:26:23 -0000 @@ -5414,7 +5414,7 @@ (slime-insert-propertized (list 'slime-location location 'face 'font-lock-keyword-face) - " " label "\n")))) + " " (slime-one-line-ify label) "\n")))) ;; Remove the final newline to prevent accidental window-scrolling (backward-char 1) (delete-char 1)) -- ;; Matthew Danish -- user: mrd domain: cmu.edu ;; OpenPGP public key: C24B6010 on keyring.debian.org

2 1

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 18 Nov '04

18 Nov '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.569 slime/ChangeLog:1.570 --- slime/ChangeLog:1.569 Tue Nov 16 00:15:29 2004 +++ slime/ChangeLog Thu Nov 18 18:36:12 2004 @@ -1,3 +1,8 @@ +2004-11-18 Alexey Dejneka <adejneka(a)comail.ru> + + * swank.lisp (inspect-for-emacs): Fix bug in handling of arrays + with fill-pointers. + 2004-11-15 Helmut Eller <heller(a)common-lisp.net> * slime.el: The REPL commands ,quit and ,sayoonara are now

1 0

[slime-devel] Inspector failure for arrays with fill pointer
by Alexey Dejneka 18 Nov '04

18 Nov '04

Hello, I enter this line into REPL: (defparameter *x* (make-array 1 :fill-pointer t)) Then press C-c I, enter *x*. An sldb window appears with | destructure-case failed: ("Fill pointer" (FILL-POINTER ARRAY)) | [Condition of type SIMPLE-ERROR] | | Restarts: | 0: [ABORT] Abort handling SLIME request. | 1: [ABORT] Reduce debugger level (leaving debugger, returning to toplevel). | 2: [TOPLEVEL] Restart at toplevel READ/EVAL/PRINT loop. | | Backtrace: | 0: (SWANK::INSPECTOR-CONTENT-FOR-EMACS ("Dimensions" #1=": " (:VALUE (1)) #2=(:NEWLINE) "Its element type is" #1# (:VALUE T) #2# "Total size" #1# ...)) | 1: ("hairy arg processor for SWANK::INSPECT-OBJECT" #(0) #<SWANK-BACKEND::SBCL-INSPECTOR {9C6F4B9}>) [...] Patch is attached. -- Regards, Alexey Dejneka "Alas, the spheres of truth are less transparent than those of illusion." -- L.E.J. Brouwer

2 1

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 16 Nov '04

16 Nov '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.568 slime/ChangeLog:1.569 --- slime/ChangeLog:1.568 Thu Nov 11 23:30:20 2004 +++ slime/ChangeLog Tue Nov 16 00:15:29 2004 @@ -1,3 +1,66 @@ +2004-11-15 Helmut Eller <heller(a)common-lisp.net> + + * slime.el: The REPL commands ,quit and ,sayoonara are now + distinct. Previously Quit killed all Lisps an all buffers. The + new Quit command kills only the current Lisp. + (slime-quit-lisp): New function. + (repl-command quit): Use it. Don't delete all buffers. + (repl-command sayoonara): No longer an alias for ,quit. + (slime-connection-list-mode-map): Bind C-k to slime-quit-lisp. + (slime-communication-style): New connection variable. + (slime-use-sigint-for-interrupt): Is no longer a connection local + variable. It's derived from the new slime-communication-style. + (slime-inhibit-pipelining): New user option. + (slime-background-activities-enabled-p): New predicate to control + various background activities like autodoc and arglist fetching. + (slime-space, slime-autodoc-message-ok-p): Use it. + (slime-search-call-site): Use hints provided to search a call-site + in a defun. Useful for the show-frame-source command. + (slime-goto-source-location): Use it. + (slime-quit): Deleted, as it was broken. May come back later. + (slime-inspector-label-face, slime-inspector-value-face) + (slime-inspector-action-face, slime-reader-conditional-face): + Provide better defaults for Emacsen which don't support :inherited + faces. + + * swank-backend.lisp (emacs-connected): Don't pass the stream as + argument. make-stream-interactive is a better place for setting + buffering options. + + * swank-cmucl.lisp (emacs-connected): Install GC hooks to display + GC messages in the echo area. + (sos/misc :flush-output): There seem to be funny signal safety + issues if the dedicated output stream is not used. So, lets first + reset the buffer index before sending the buffer to the underlying + stream. + + * swank-lispworks.lisp (frame-source-location-for-emacs): Pass the + function name of the next (newer) frame as a hint to Emacs. This + way we can highlight the call site in some cases, instead of the + entire defun. + (frame-location): Renamed from function-name-location. The + argument is now a dspec, not only a name. Also include hints for + Emacs. + (lispworks-inspect): Simplified from old code. + (inspect-for-emacs): Use it for also for simple functions. + (emacs-connected, make-stream-interactive): Move the + soft-force-output stuff to make-stream-interactive. + + * swank-abcl.lisp (emacs-connected): Deleted. The default + implementation should be good enough. + + * swank-sbcl.lisp (emacs-connected): Updated for new interface. + + * swank-openmcl.lisp (emacs-connected, make-stream-interactive): + Move buffering stuff to make-stream-interactive. + + * swank.lisp (defstruct connection): Add new slot: + communication-style for convenience. + (create-connection): Initialize the new slot. + (connection-info): Send the communication-style to Emacs. + (install-fd-handler, simple-serve-requests): Sending + :use-sigint-for-interrupt is no longer necessary. + 2004-11-11 Raymond Toy <raymond.toy(a)ericsson.com> * slime.el (slime-activate-font-lock-magic): Add XEmacs support.

1 0

[slime-devel] SLIME install trouble
by Joshua Boyd 16 Nov '04

16 Nov '04

I'm having trouble getting slime working on my home machine. It worked beatifully at work, but not at home. First, at home I'm running CMUCL 18e and GNU Emacs 21.2.1 on Irix 6.5.20. I can update to a newer Emacs if need be, but at the moment a newer lisp doesn't appear to be an option. That said, Cliki seems to indicate that 18e is supposed to be supported. The specific problem is that when I run M-x slime, I get this: Warning: These Swank interfaces are unimplemented: (ALL-THREADS FIND-THREAD INTERRUPT-THREAD RECEIVE RESTART-FRAME SEND SPAWN THREAD-ID WHO-MACROEXPANDS WHO-SPECIALIZES) T * Error in function CREATE-INET-LISTENER: Error binding socket to port 0: Cannot assign requested address Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) (CREATE-INET-LISTENER 0 :STREAM :HOST 2130706433 ...) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/internet.lisp. 0] There are no errors or messages for executing this lines prior to M-x slime: (add-to-list 'load-path "/usr/people/jdboyd/slime") (require 'slime) (slime-setup) I've updated to the latest CVS version as if about 11PM EST. I've attached a full transcript from running M-x slime below. I'm hoping that I can get this working. I love my Irix machines. -- Joshua D. Boyd jdboyd(a)jdboyd.net http://www.jdboyd.net/ http://www.joshuaboyd.org/ ===File ~/slime.log========================================= CMU Common Lisp 18e, running on iris.catpro.local With core: /usr/local/cmucl-18e/lib/cmucl/lib/lisp.core Dumped on: Wed, 2003-04-09 18:01:10-07:00 on Neptune See <http://www.cons.org/cmucl/> for support information. Loaded subsystems: Python 1.1, target SGI CLOS 18e (based on PCL September 16 92 PCL (f)) * ; Loading #p"/usr/people/jdboyd/slime/swank-loader.lisp". ;; Compiling /usr/people/jdboyd/slime/swank-backend.lisp... ; Python version 1.1, VM version SGI on 15 NOV 04 08:40:18 pm. ; Compiling: /usr/people/jdboyd/slime/swank-backend.lisp 01 NOV 04 09:19:35 am ; Byte Compiling Top-Level Form: ; Converted DEFINTERFACE. ; Compiling DEFMACRO DEFINTERFACE: ; ; ; File: /usr/people/jdboyd/slime/swank-backend.lisp ; In: DEFMACRO DEFINTERFACE ; (LET (#) ; `(DEFMETHOD ,NAME ,ARGS ,@DEFAULT-BODY)) ; Note: Variable RECEIVED-ARGS defined but never used. ; ; Converted DEFIMPLEMENTATION. ; Compiling DEFMACRO DEFIMPLEMENTATION: ; Converted WARN-UNIMPLEMENTED-INTERFACES. ; Compiling DEFUN WARN-UNIMPLEMENTED-INTERFACES: ; Converted IMPORT-TO-SWANK-MOP. ; Compiling DEFUN IMPORT-TO-SWANK-MOP: ; Converted IMPORT-SWANK-MOP-SYMBOLS. ; Compiling DEFUN IMPORT-SWANK-MOP-SYMBOLS: ; Converted WITH-STRUCT. ; Compiling DEFMACRO WITH-STRUCT: ; In: LAMBDA (#:WHOLE-0 #:ENV-1) ; (LET (#) ; `(DEFMETHOD ,NAME ,ARGS ,@DEFAULT-BODY)) ; Note: Variable RECEIVED-ARGS defined but never used. ; ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE PREFERRED-COMMUNICATION-STYLE: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE EMACS-CONNECTED: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE CALL-WITHOUT-INTERRUPTS: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE LISP-IMPLEMENTATION-TYPE-NAME: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE DEFAULT-DIRECTORY: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE SET-DEFAULT-DIRECTORY: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE CALL-WITH-SYNTAX-HOOKS: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE DEFAULT-READTABLE-ALIST: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Converted WITH-COMPILATION-HOOKS. ; Compiling DEFMACRO WITH-COMPILATION-HOOKS: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE OPERATE-ON-SYSTEM: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFTYPE SEVERITY: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE MAKE-STREAM-INTERACTIVE: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE ARGLIST: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE FUNCTION-NAME: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFINE-CONDITION SLDB-CONDITION: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE FRAME-PACKAGE: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE FORMAT-SLDB-CONDITION: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE CONDITION-REFERENCES: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE CONDITION-EXTRAS: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFSTRUCT :LOCATION: ; Byte Compiling Top-Level Form: ; Converted MAKE-LOCATION. ; Compiling DEFSTRUCT :LOCATION: ; Converted LOCATION-P. ; Compiling DEFSTRUCT :LOCATION: ; Converted LOCATION-BUFFER. ; Compiling DEFSTRUCT :LOCATION: ; Converted (SETF LOCATION-BUFFER). ; Compiling DEFSTRUCT :LOCATION: ; Converted LOCATION-POSITION. ; Compiling DEFSTRUCT :LOCATION: ; Converted (SETF LOCATION-POSITION). ; Compiling DEFSTRUCT :LOCATION: ; Byte Compiling Top-Level Form: ; Converted LOCATION-HINTS. ; Compiling DEFSTRUCT :LOCATION: ; Converted (SETF LOCATION-HINTS). ; Compiling DEFSTRUCT :LOCATION: ; Compiling DEFSTRUCT :ERROR: ; Byte Compiling Top-Level Form: ; Converted MAKE-ERROR. ; Compiling DEFSTRUCT :ERROR: ; Converted ERROR-P. ; Compiling DEFSTRUCT :ERROR: ; Converted ERROR-MESSAGE. ; Compiling DEFSTRUCT :ERROR: ; Converted (SETF ERROR-MESSAGE). ; Compiling DEFSTRUCT :ERROR: ; Compiling DEFSTRUCT :FILE: ; Byte Compiling Top-Level Form: ; Converted MAKE-FILE. ; Compiling DEFSTRUCT :FILE: ; Converted FILE-P. ; Compiling DEFSTRUCT :FILE: ; Converted FILE-NAME. ; Compiling DEFSTRUCT :FILE: ; Converted (SETF FILE-NAME). ; Compiling DEFSTRUCT :FILE: ; Compiling DEFSTRUCT :BUFFER: ; Byte Compiling Top-Level Form: ; Converted MAKE-BUFFER. ; Compiling DEFSTRUCT :BUFFER: ; Converted BUFFER-P. ; Compiling DEFSTRUCT :BUFFER: ; Converted BUFFER-NAME. ; Compiling DEFSTRUCT :BUFFER: ; Converted (SETF BUFFER-NAME). ; Compiling DEFSTRUCT :BUFFER: ; Compiling DEFSTRUCT :POSITION: ; Byte Compiling Top-Level Form: ; Converted MAKE-POSITION. ; Compiling DEFSTRUCT :POSITION: ; Converted POSITION-P. ; Compiling DEFSTRUCT :POSITION: ; Converted POSITION-POS. ; Compiling DEFSTRUCT :POSITION: ; Converted (SETF POSITION-POS). ; Compiling DEFSTRUCT :POSITION: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE BUFFER-FIRST-CHANGE: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; [GC threshold exceeded with 12,002,200 bytes in use. Commencing GC.] ; [GC completed with 1,076,456 bytes retained and 10,925,744 bytes freed.] ; [GC will next occur when at least 13,076,456 bytes are in use.] ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE UNPROFILE-ALL: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; ; ; File: /usr/people/jdboyd/slime/swank-backend.lisp ; In: DEFMETHOD INSPECT-FOR-EMACS (T T) ; (DEFMETHOD INSPECT-FOR-EMACS ; (OBJECT INSPECTOR) ; "Generic method for inspecting any kind of object. ; ; Since we don't know how to deal with OBJECT we simply dump the ..) ; --> PROGN PCL::LOAD-DEFMETHOD PCL::LOAD-DEFMETHOD LIST* LAMBDA FUNCTION ; --> MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET ; --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND LET FLET ; --> PCL::BIND-ARGS ; ==> ; (LET* (#) ; (DECLARE #) ; (DECLARE #) ; (BLOCK INSPECT-FOR-EMACS #)) ; Warning: Ignore declaration for unknown variable INSPECTION-MODE. ; ; Compiling DEFMETHOD INSPECT-FOR-EMACS (T T): ; Converted LABEL-VALUE-LINE. ; Compiling DEFUN LABEL-VALUE-LINE: ; Converted LABEL-VALUE-LINE*. ; Compiling DEFMACRO LABEL-VALUE-LINE*: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE DESCRIBE-PRIMITIVE-TYPE: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE STARTUP-MULTIPROCESSING: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE THREAD-NAME: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE THREAD-STATUS: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE MAKE-LOCK: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE CALL-WITH-LOCK-HELD: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE CURRENT-THREAD: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE THREAD-ALIVE-P: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFINTERFACE KILL-THREAD: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; home:.slime/fasl/cmu-18e/swank-backend.sgif written. ; Compilation finished in 0:00:12. ;; Loading #p"/usr/people/jdboyd/.slime/fasl/cmu-18e/swank-backend.sgif". Warning: SWANK-BACKEND also exports the following symbols: (SWANK-BACKEND:LIST-CALLEES SWANK-BACKEND:MAKE-LOCK SWANK-BACKEND:UNPROFILE-ALL SWANK-BACKEND:GETPID SWANK-BACKEND:CURRENT-THREAD SWANK-BACKEND:FRAME-VAR-VALUE SWANK-BACKEND:WHO-REFERENCES SWANK-BACKEND:MAKE-DEFAULT-INSPECTOR SWANK-BACKEND:FRAME-CATCH-TAGS SWANK-BACKEND:REMOVE-SIGIO-HANDLERS SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS SWANK-BACKEND:DISASSEMBLE-FRAME SWANK-BACKEND:PROFILE-REPORT SWANK-BACKEND:ACTIVATE-STEPPING SWANK-BACKEND:DESCRIBE-SYMBOL-FOR-EMACS SWANK-BACKEND:STARTUP-MULTIPROCESSING SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT SWANK-BACKEND:DEFAULT-DIRECTORY SWANK-BACKEND:THREAD-STATUS SWANK-BACKEND:ADD-SIGIO-HANDLER SWANK-BACKEND:PRINT-FRAME SWANK-BACKEND:RECEIVE SWANK-BACKEND:ARGLIST SWANK-BACKEND:CLOSE-SOCKET SWANK-BACKEND:PROFILE-PACKAGE SWANK-BACKEND:SLDB-BREAK-ON-RETURN SWANK-BACKEND:UNPROFILE SWANK-BACKEND:PREFERRED-COMMUNICATION-STYLE SWANK-BACKEND:THREAD-ALIVE-P SWANK-BACKEND:THREAD-NAME SWANK-BACKEND:FRAME-LOCALS SWANK-BACKEND:WHO-MACROEXPANDS SWANK-BACKEND:PROFILE SWANK-BACKEND:DEFAULT-READTABLE-ALIST SWANK-BACKEND:FRAME-PACKAGE SWANK-BACKEND:FIND-THREAD SWANK-BACKEND:LISP-IMPLEMENTATION-TYPE-NAME SWANK-BACKEND:RETURN-FROM-FRAME SWANK-BACKEND:ADD-FD-HANDLER SWANK-BACKEND:WHO-BINDS SWANK-BACKEND:CALL-WITH-LOCK-HELD SWANK-BACKEND:CALL-WITHOUT-INTERRUPTS SWANK-BACKEND:OPERATE-ON-SYSTEM SWANK-BACKEND:SEND SWANK-BACKEND:CONDITION-EXTRAS SWANK-BACKEND:SET-DEFAULT-DIRECTORY SWANK-BACKEND:RESTART-FRAME SWANK-BACKEND:SWANK-COMPILE-FILE SWANK-BACKEND:MAKE-FN-STREAMS SWANK-BACKEND:SWANK-COMPILE-STRING SWANK-BACKEND:REMOVE-FD-HANDLERS SWANK-BACKEND:COMPUTE-BACKTRACE SWANK-BACKEND:THREAD-ID SWANK-BACKEND:PROFILE-RESET SWANK-BACKEND:LIST-CALLERS SWANK-BACKEND:EVAL-IN-FRAME SWANK-BACKEND:WHO-CALLS SWANK-BACKEND:FORMAT-SLDB-CONDITION SWANK-BACKEND:INTERRUPT-THREAD SWANK-BACKEND:SPAWN SWANK-BACKEND:EMACS-CONNECTED SWANK-BACKEND:LOCAL-PORT SWANK-BACKEND:MAKE-STREAM-INTERACTIVE SWANK-BACKEND:WHO-SPECIALIZES SWANK-BACKEND:BUFFER-FIRST-CHANGE SWANK-BACKEND:FRAME-SOURCE-LOCATION-FOR-EMACS SWANK-BACKEND:MACROEXPAND-ALL SWANK-BACKEND:CREATE-SOCKET SWANK-BACKEND:SLDB-BREAK-AT-START SWANK-BACKEND:CONDITION-REFERENCES SWANK-BACKEND:KILL-THREAD SWANK-BACKEND:ALL-THREADS SWANK-BACKEND:PROFILED-FUNCTIONS SWANK-BACKEND:DESCRIBE-DEFINITION SWANK-BACKEND:FUNCTION-NAME SWANK-BACKEND:WHO-SETS SWANK-BACKEND:FIND-DEFINITIONS SWANK-BACKEND:ACCEPT-CONNECTION SWANK-BACKEND:DESCRIBE-PRIMITIVE-TYPE SWANK-BACKEND:CALL-WITH-COMPILATION-HOOKS) ;; Compiling /usr/people/jdboyd/slime/nregex.lisp... ; Python version 1.1, VM version SGI on 15 NOV 04 08:40:31 pm. ; Compiling: /usr/people/jdboyd/slime/nregex.lisp 26 APR 04 05:30:18 am ; Converted INFO. ; Compiling DEFMACRO INFO: ; Byte Compiling Top-Level Form: ; Converted REGEX. ; Compiling DEFUN REGEX: ; Converted ADD-EXP. ; Compiling DEFMACRO ADD-EXP: ; Converted REGEX-QUOTED. ; Compiling DEFUN REGEX-QUOTED: ; Byte Compiling Top-Level Form: ; Converted REGEX-COMPILE. ; Compiling DEFUN REGEX-COMPILE: ; Byte Compiling Top-Level Form: ; home:.slime/fasl/cmu-18e/nregex.sgif written. ; Compilation finished in 0:00:02. ;; Loading #p"/usr/people/jdboyd/.slime/fasl/cmu-18e/nregex.sgif". ;; Compiling /usr/people/jdboyd/slime/swank-source-path-parser.lisp... ; Python version 1.1, VM version SGI on 15 NOV 04 08:40:33 pm. ; Compiling: /usr/people/jdboyd/slime/swank-source-path-parser.lisp 30 OCT 04 03:16:29 am ; Compiling LET ((RT #)): ; Converted MAKE-SOURCE-RECORDER. ; Compiling DEFUN MAKE-SOURCE-RECORDER: ; Converted MAKE-SOURCE-RECORDING-READTABLE. ; Compiling DEFUN MAKE-SOURCE-RECORDING-READTABLE: ; Converted READ-AND-RECORD-SOURCE-MAP. ; Compiling DEFUN READ-AND-RECORD-SOURCE-MAP: ; Converted SOURCE-PATH-STREAM-POSITION. ; Compiling DEFUN SOURCE-PATH-STREAM-POSITION: ; Converted SOURCE-PATH-STRING-POSITION. ; Compiling DEFUN SOURCE-PATH-STRING-POSITION: ; Converted SOURCE-PATH-FILE-POSITION. ; Compiling DEFUN SOURCE-PATH-FILE-POSITION: ; Byte Compiling Top-Level Form: ; Converted SOURCE-PATH-SOURCE-POSITION. ; Compiling DEFUN SOURCE-PATH-SOURCE-POSITION: ; Byte Compiling Top-Level Form: ; home:.slime/fasl/cmu-18e/swank-source-path-parser.sgif written. ; Compilation finished in 0:00:01. ;; Loading #p"/usr/people/jdboyd/.slime/fasl/cmu-18e/swank-source-path-parser.sgif". ;; Compiling /usr/people/jdboyd/slime/swank-cmucl.lisp... ; Python version 1.1, VM version SGI on 15 NOV 04 08:40:34 pm. ; Compiling: /usr/people/jdboyd/slime/swank-cmucl.lisp 01 NOV 04 09:18:56 am ; [GC threshold exceeded with 13,091,448 bytes in use. Commencing GC.] ; [GC completed with 1,938,872 bytes retained and 11,152,576 bytes freed.] ; [GC will next occur when at least 13,938,872 bytes are in use.] ; Converted SWANK-MOP:SLOT-DEFINITION-DOCUMENTATION. ; Compiling DEFUN SWANK-MOP:SLOT-DEFINITION-DOCUMENTATION: ; Byte Compiling Top-Level Form: ; Converted READ-INTO-SIMPLE-STRING. ; Compiling DEFUN READ-INTO-SIMPLE-STRING: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION PREFERRED-COMMUNICATION-STYLE: ; Compiling DEFIMPLEMENTATION CREATE-SOCKET: ; Compiling DEFIMPLEMENTATION LOCAL-PORT: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION CLOSE-SOCKET: ; Compiling DEFIMPLEMENTATION ACCEPT-CONNECTION: ; Converted SOCKET-FD. ; Compiling DEFUN SOCKET-FD: ; Converted RESOLVE-HOSTNAME. ; Compiling DEFUN RESOLVE-HOSTNAME: ; Byte Compiling Top-Level Form: ; Converted MAKE-SOCKET-IO-STREAM. ; Compiling DEFUN MAKE-SOCKET-IO-STREAM: ; Converted SET-SIGIO-HANDLER. ; Compiling DEFUN SET-SIGIO-HANDLER: ; Converted SIGIO-HANDLER. ; Compiling DEFUN SIGIO-HANDLER: ; Converted FCNTL. ; Compiling DEFUN FCNTL: ; Compiling DEFIMPLEMENTATION ADD-SIGIO-HANDLER: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION REMOVE-SIGIO-HANDLERS: ; Compiling DEFIMPLEMENTATION ADD-FD-HANDLER: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION REMOVE-FD-HANDLERS: ; Compiling DEFIMPLEMENTATION MAKE-FN-STREAMS: ; Byte Compiling Top-Level Form: ; Converted MAKE-SLIME-OUTPUT-STREAM. ; Compiling DEFSTRUCT SLIME-OUTPUT-STREAM: ; Compiling DEFSTRUCT SLIME-OUTPUT-STREAM: ; Converted %PRINT-SLIME-OUTPUT-STREAM. ; Compiling DEFUN %PRINT-SLIME-OUTPUT-STREAM: ; Converted SOS/OUT. ; Compiling DEFUN SOS/OUT: ; Converted SOS/SOUT. ; Compiling DEFUN SOS/SOUT: ; Converted SOS/MISC. ; Compiling DEFUN SOS/MISC: ; Byte Compiling Top-Level Form: ; Converted MAKE-SLIME-INPUT-STREAM. ; Compiling DEFSTRUCT SLIME-INPUT-STREAM: ; Compiling DEFSTRUCT SLIME-INPUT-STREAM: ; Converted SIS/IN. ; Compiling DEFUN SIS/IN: ; Converted SIS/MISC. ; Compiling DEFUN SIS/MISC: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION CALL-WITH-COMPILATION-HOOKS: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION SWANK-COMPILE-FILE: ; Compiling DEFIMPLEMENTATION SWANK-COMPILE-STRING: ; Converted HANDLE-NOTIFICATION-CONDITION. ; Compiling DEFUN HANDLE-NOTIFICATION-CONDITION: ; Converted SIGNAL-COMPILER-CONDITION. ; Compiling DEFUN SIGNAL-COMPILER-CONDITION: ; Converted SEVERITY-FOR-EMACS. ; Compiling DEFUN SEVERITY-FOR-EMACS: ; Byte Compiling Top-Level Form: ; Compiling Creation Form for #<KERNEL::CLASS-CELL C::COMPILER-ERROR>: ; Compiling Creation Form for #<KERNEL::CLASS-CELL STYLE-WARNING>: ; Compiling Creation Form for #<KERNEL::CLASS-CELL WARNING>: ; Converted READ-ERROR-P. ; Compiling DEFUN READ-ERROR-P: ; Converted BRIEF-COMPILER-MESSAGE-FOR-EMACS. ; Compiling DEFUN BRIEF-COMPILER-MESSAGE-FOR-EMACS: ; Converted LONG-COMPILER-MESSAGE-FOR-EMACS. ; Compiling DEFUN LONG-COMPILER-MESSAGE-FOR-EMACS: ; Converted READ-ERROR-LOCATION. ; Compiling DEFUN READ-ERROR-LOCATION: ; Converted COMPILER-NOTE-LOCATION. ; Compiling DEFUN COMPILER-NOTE-LOCATION: ; Converted NOTE-ERROR-LOCATION. ; Compiling DEFUN NOTE-ERROR-LOCATION: ; Converted LOCATE-COMPILER-NOTE. ; Compiling DEFUN LOCATE-COMPILER-NOTE: ; Converted UNIX-TRUENAME. ; Compiling DEFUN UNIX-TRUENAME: ; Converted DEFXREF. ; Compiling DEFMACRO DEFXREF: ; Byte Compiling Top-Level Form: ; Compiling DEFXREF WHO-CALLS: ; Compiling DEFXREF WHO-REFERENCES: ; Compiling DEFXREF WHO-BINDS: ; Byte Compiling Top-Level Form: ; Compiling DEFXREF WHO-SETS: ; Converted XREF-RESULTS. ; Compiling DEFUN XREF-RESULTS: ; Converted RESOLVE-XREF-LOCATION. ; Compiling DEFUN RESOLVE-XREF-LOCATION: ; Converted CLEAR-XREF-INFO. ; Compiling DEFUN CLEAR-XREF-INFO: ; Converted MAP-CODE-CONSTANTS. ; Compiling DEFUN MAP-CODE-CONSTANTS: ; Byte Compiling Top-Level Form: ; Converted FUNCTION-CALLEES. ; Compiling DEFUN FUNCTION-CALLEES: ; Converted MAP-ALLOCATED-CODE-COMPONENTS. ; Compiling DEFUN MAP-ALLOCATED-CODE-COMPONENTS: ; [GC threshold exceeded with 14,525,928 bytes in use. Commencing GC.] ; [GC completed with 2,843,528 bytes retained and 11,682,400 bytes freed.] ; [GC will next occur when at least 14,843,528 bytes are in use.] ; Converted MAP-CALLER-CODE-COMPONENTS. ; Compiling DEFUN MAP-CALLER-CODE-COMPONENTS: ; Converted FUNCTION-CALLERS. ; Compiling DEFUN FUNCTION-CALLERS: ; Converted DEBUG-INFO-DEFINITIONS. ; Compiling DEFUN DEBUG-INFO-DEFINITIONS: ; Converted CODE-COMPONENT-ENTRY-POINTS. ; Compiling DEFUN CODE-COMPONENT-ENTRY-POINTS: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION LIST-CALLERS: ; Compiling DEFIMPLEMENTATION LIST-CALLEES: ; Byte Compiling Top-Level Form: ; Converted SAFE-DEFINITION-FINDING. ; Compiling DEFMACRO SAFE-DEFINITION-FINDING: ; Converted CODE-LOCATION-SOURCE-LOCATION. ; Compiling DEFUN CODE-LOCATION-SOURCE-LOCATION: ; Converted SOURCE-LOCATION-FROM-CODE-LOCATION. ; Compiling DEFUN SOURCE-LOCATION-FROM-CODE-LOCATION: ; Converted LOCATION-IN-FILE. ; Compiling DEFUN LOCATION-IN-FILE: ; Byte Compiling Top-Level Form: ; Converted LOCATION-IN-STREAM. ; Compiling DEFUN LOCATION-IN-STREAM: ; Converted READ-FILE. ; Compiling DEFUN READ-FILE: ; Converted READ-SNIPPET. ; Compiling DEFUN READ-SNIPPET: ; Converted READ-UPTO-N-CHARS. ; Compiling DEFUN READ-UPTO-N-CHARS: ; Converted DEBUG-INFO-FUNCTION-NAME-LOCATION. ; Compiling DEFUN DEBUG-INFO-FUNCTION-NAME-LOCATION: ; Converted DEBUG-SOURCE-INFO-FROM-EMACS-BUFFER-P. ; Compiling DEFUN DEBUG-SOURCE-INFO-FROM-EMACS-BUFFER-P: ; Converted INFO-FROM-EMACS-BUFFER-P. ; Compiling DEFUN INFO-FROM-EMACS-BUFFER-P: ; Converted CODE-LOCATION-STREAM-POSITION. ; Compiling DEFUN CODE-LOCATION-STREAM-POSITION: ; Converted FORM-NUMBER-STREAM-POSITION. ; Compiling DEFUN FORM-NUMBER-STREAM-POSITION: ; Converted CODE-LOCATION-STRING-OFFSET. ; Compiling DEFUN CODE-LOCATION-STRING-OFFSET: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Converted MAKE-SOURCE-CACHE-ENTRY. ; Compiling DEFSTRUCT SOURCE-CACHE-ENTRY: ; Converted SOURCE-CACHE-GET. ; Compiling DEFUN SOURCE-CACHE-GET: ; Converted SOURCE-CACHED-P. ; Compiling DEFUN SOURCE-CACHED-P: ; Compiling DEFIMPLEMENTATION BUFFER-FIRST-CHANGE: ; Compiling DEFIMPLEMENTATION FIND-DEFINITIONS: ; Byte Compiling Top-Level Form: ; Converted FUNCTION-DEFINITIONS. ; Compiling DEFUN FUNCTION-DEFINITIONS: ; Converted FUNCTION-LOCATION. ; Compiling DEFUN FUNCTION-LOCATION: ; Converted COMPILED-FUNCTION-LOCATION. ; Compiling DEFUN COMPILED-FUNCTION-LOCATION: ; Converted FUNCTION-FIRST-CODE-LOCATION. ; Compiling DEFUN FUNCTION-FIRST-CODE-LOCATION: ; Converted FUNCTION-HAS-DEBUG-FUNCTION-P. ; Compiling DEFUN FUNCTION-HAS-DEBUG-FUNCTION-P: ; Converted FUNCTION-CODE-OBJECT=. ; Compiling DEFUN FUNCTION-CODE-OBJECT=: ; Converted BYTE-FUNCTION-LOCATION. ; Compiling DEFUN BYTE-FUNCTION-LOCATION: ; Converted STRUCT-CLOSURE-P. ; Compiling DEFUN STRUCT-CLOSURE-P: ; Converted STRUCT-CLOSURE-LOCATION. ; Compiling DEFUN STRUCT-CLOSURE-LOCATION: ; Converted STRUCT-CLOSURE-DD. ; Compiling DEFUN STRUCT-CLOSURE-DD: ; Byte Compiling Top-Level Form: ; Converted DD-LOCATION. ; Compiling DEFUN DD-LOCATION: ; Converted STRUCT-CONSTRUCTOR. ; Compiling DEFUN STRUCT-CONSTRUCTOR: ; Converted GENERIC-FUNCTION-DEFINITIONS. ; Compiling DEFUN GENERIC-FUNCTION-DEFINITIONS: ; Converted GF-LOCATION. ; Compiling DEFUN GF-LOCATION: ; Converted GF-METHOD-DEFINITIONS. ; Compiling DEFUN GF-METHOD-DEFINITIONS: ; Converted METHOD-DEFINITION. ; Compiling DEFUN METHOD-DEFINITION: ; Converted METHOD-DSPEC. ; Compiling DEFUN METHOD-DSPEC: ; Converted METHOD-LOCATION. ; Compiling DEFUN METHOD-LOCATION: ; Converted GENERICP. ; Compiling DEFUN GENERICP: ; Byte Compiling Top-Level Form: ; Compiling Creation Form for #<KERNEL::CLASS-CELL GENERIC-FUNCTION>: ; Converted TYPE-DEFINITIONS. ; Compiling DEFUN TYPE-DEFINITIONS: ; Converted MAYBE-MAKE-DEFINITION. ; Compiling DEFUN MAYBE-MAKE-DEFINITION: ; Converted CLASS-DEFINITIONS. ; Compiling DEFUN CLASS-DEFINITIONS: ; Converted CLASS-LOCATION. ; Compiling DEFUN CLASS-LOCATION: ; Converted FIND-DD. ; Compiling DEFUN FIND-DD: ; Converted CONDITION-CLASS-LOCATION. ; Compiling DEFUN CONDITION-CLASS-LOCATION: ; Converted MAKE-NAME-IN-FILE-LOCATION. ; Compiling DEFUN MAKE-NAME-IN-FILE-LOCATION: ; Converted SOURCE-LOCATION-FORM-NUMBERS. ; Compiling DEFUN SOURCE-LOCATION-FORM-NUMBERS: ; Converted SOURCE-LOCATION-TLF-NUMBER. ; Compiling DEFUN SOURCE-LOCATION-TLF-NUMBER: ; Converted SOURCE-LOCATION-FORM-NUMBER. ; Compiling DEFUN SOURCE-LOCATION-FORM-NUMBER: ; Byte Compiling Top-Level Form: ; Converted RESOLVE-FILE-SOURCE-LOCATION. ; Compiling DEFUN RESOLVE-FILE-SOURCE-LOCATION: ; Converted RESOLVE-STREAM-SOURCE-LOCATION. ; Compiling DEFUN RESOLVE-STREAM-SOURCE-LOCATION: ; Converted FILE-SOURCE-LOCATION-P. ; Compiling DEFUN FILE-SOURCE-LOCATION-P: ; Converted STREAM-SOURCE-LOCATION-P. ; Compiling DEFUN STREAM-SOURCE-LOCATION-P: ; Converted SOURCE-LOCATION-P. ; Compiling DEFUN SOURCE-LOCATION-P: ; Converted RESOLVE-SOURCE-LOCATION. ; Compiling DEFUN RESOLVE-SOURCE-LOCATION: ; Converted DEFINITION-SOURCE-LOCATION. ; Compiling DEFUN DEFINITION-SOURCE-LOCATION: ; Converted SETF-DEFINITIONS. ; Compiling DEFUN SETF-DEFINITIONS: ; Converted VARIABLE-LOCATION. ; Compiling DEFUN VARIABLE-LOCATION: ; Converted VARIABLE-DEFINITIONS. ; Compiling DEFUN VARIABLE-DEFINITIONS: ; Converted COMPILER-MACRO-DEFINITIONS. ; Compiling DEFUN COMPILER-MACRO-DEFINITIONS: ; Byte Compiling Top-Level Form: ; Converted SOURCE-TRANSFORM-DEFINITIONS. ; Compiling DEFUN SOURCE-TRANSFORM-DEFINITIONS: ; Converted FUNCTION-INFO-DEFINITIONS. ; Compiling DEFUN FUNCTION-INFO-DEFINITIONS: ; Converted IR1-TRANSLATOR-DEFINITIONS. ; Compiling DEFUN IR1-TRANSLATOR-DEFINITIONS: ; Compiling DEFIMPLEMENTATION DESCRIBE-SYMBOL-FOR-EMACS: ; Compiling DEFIMPLEMENTATION DESCRIBE-DEFINITION: ; [GC threshold exceeded with 15,148,128 bytes in use. Commencing GC.] ; [GC completed with 2,851,952 bytes retained and 12,296,176 bytes freed.] ; [GC will next occur when at least 14,851,952 bytes are in use.] ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION ARGLIST: ; Compiling DEFIMPLEMENTATION ARGLIST: ; Compiling DEFIMPLEMENTATION FUNCTION-NAME: ; Byte Compiling Top-Level Form: ; Converted READ-ARGLIST. ; Compiling DEFUN READ-ARGLIST: ; Converted DEBUG-FUNCTION-ARGLIST. ; Compiling DEFUN DEBUG-FUNCTION-ARGLIST: ; Converted DEBUG-VARIABLE-SYMBOL-OR-DELETED. ; Compiling DEFUN DEBUG-VARIABLE-SYMBOL-OR-DELETED: ; Converted SYMBOL-DEBUG-FUNCTION-ARGLIST. ; Compiling DEFUN SYMBOL-DEBUG-FUNCTION-ARGLIST: ; Converted BYTE-CODE-FUNCTION-ARGLIST. ; Compiling DEFUN BYTE-CODE-FUNCTION-ARGLIST: ; Converted MAKE-ARG-SYMBOL. ; Compiling DEFUN MAKE-ARG-SYMBOL: ; Converted HAIRY-BYTE-FUNCTION-ARGLIST. ; Compiling DEFUN HAIRY-BYTE-FUNCTION-ARGLIST: ; Compiling DEFIMPLEMENTATION MACROEXPAND-ALL: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION SET-DEFAULT-DIRECTORY: ; Compiling DEFIMPLEMENTATION DEFAULT-DIRECTORY: ; Compiling DEFIMPLEMENTATION CALL-WITHOUT-INTERRUPTS: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION GETPID: ; Compiling DEFIMPLEMENTATION LISP-IMPLEMENTATION-TYPE-NAME: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION QUIT-LISP: ; Compiling DEFIMPLEMENTATION CALL-WITH-DEBUGGING-ENVIRONMENT: ; Converted FRAME-DOWN. ; Compiling DEFUN FRAME-DOWN: ; Byte Compiling Top-Level Form: ; Converted NTH-FRAME. ; Compiling DEFUN NTH-FRAME: ; Compiling DEFIMPLEMENTATION COMPUTE-BACKTRACE: ; Compiling DEFIMPLEMENTATION PRINT-FRAME: ; Compiling DEFIMPLEMENTATION FRAME-PACKAGE: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION FRAME-SOURCE-LOCATION-FOR-EMACS: ; Compiling DEFIMPLEMENTATION EVAL-IN-FRAME: ; Converted FRAME-DEBUG-VARS. ; Compiling DEFUN FRAME-DEBUG-VARS: ; Byte Compiling Top-Level Form: ; Converted DEBUG-VAR-VALUE. ; Compiling DEFUN DEBUG-VAR-VALUE: ; Compiling DEFIMPLEMENTATION FRAME-LOCALS: ; Compiling DEFIMPLEMENTATION FRAME-VAR-VALUE: ; Compiling DEFIMPLEMENTATION FRAME-CATCH-TAGS: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION RETURN-FROM-FRAME: ; Compiling DEFIMPLEMENTATION ACTIVATE-STEPPING: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION SLDB-BREAK-ON-RETURN: ; Converted BREAK-ON-RETURN. ; Compiling DEFUN BREAK-ON-RETURN: ; Converted FRAME-POINTER=. ; Compiling DEFUN FRAME-POINTER=: ; Converted NEXT-CODE-LOCATIONS. ; Compiling DEFUN NEXT-CODE-LOCATIONS: ; Converted SET-STEP-BREAKPOINTS. ; Compiling DEFUN SET-STEP-BREAKPOINTS: ; [GC threshold exceeded with 14,996,816 bytes in use. Commencing GC.] ; [GC completed with 3,183,304 bytes retained and 11,813,512 bytes freed.] ; [GC will next occur when at least 15,183,304 bytes are in use.] ; Byte Compiling Top-Level Form: ; Converted SIGCONTEXT-OBJECT. ; Compiling DEFUN SIGCONTEXT-OBJECT: ; Converted KNOWN-RETURN-POINT-VALUES. ; Compiling DEFUN KNOWN-RETURN-POINT-VALUES: ; Converted BREAKPOINT-VALUES. ; Compiling DEFUN BREAKPOINT-VALUES: ; Converted DEBUG-FUNCTION-RETURNS. ; Compiling DEFUN DEBUG-FUNCTION-RETURNS: ; Byte Compiling Top-Level Form: ; Compiling DEFINE-CONDITION BREAKPOINT: ; Compiling DEFIMPLEMENTATION CONDITION-EXTRAS: ; Converted SIGNAL-BREAKPOINT. ; Compiling DEFUN SIGNAL-BREAKPOINT: ; Compiling DEFIMPLEMENTATION SLDB-BREAK-AT-START: ; Converted FRAME-CFP. ; Compiling DEFUN FRAME-CFP: ; Byte Compiling Top-Level Form: ; Converted FRAME-IP. ; Compiling DEFUN FRAME-IP: ; Converted FRAME-REGISTERS. ; Compiling DEFUN FRAME-REGISTERS: ; Converted PRINT-FRAME-REGISTERS. ; Compiling DEFUN PRINT-FRAME-REGISTERS: ; Compiling DEFIMPLEMENTATION DISASSEMBLE-FRAME: ; Compiling DEFIMPLEMENTATION MAKE-DEFAULT-INSPECTOR: ; Byte Compiling Top-Level Form: ; Compiling DEFCONSTANT +HEADER-TYPE-SYMBOLS+: ; Compiling DEFIMPLEMENTATION DESCRIBE-PRIMITIVE-TYPE: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION INSPECT-FOR-EMACS: ; Compiling DEFMETHOD INSPECT-FOR-EMACS :AROUND (FUNCTION CMUCL-INSPECTOR): ; Compiling DEFMETHOD INSPECT-FOR-EMACS (KERNEL:CODE-COMPONENT CMUCL-INSPECTOR): ; Compiling DEFMETHOD INSPECT-FOR-EMACS (KERNEL:FDEFN CMUCL-INSPECTOR): ; Compiling DEFIMPLEMENTATION PROFILE: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION UNPROFILE: ; Compiling DEFIMPLEMENTATION UNPROFILE-ALL: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION PROFILE-REPORT: ; Compiling DEFIMPLEMENTATION PROFILE-RESET: ; Compiling DEFIMPLEMENTATION PROFILED-FUNCTIONS: ; Byte Compiling Top-Level Form: ; Compiling DEFIMPLEMENTATION PROFILE-PACKAGE: ; Byte Compiling Top-Level Form: ; home:.slime/fasl/cmu-18e/swank-cmucl.sgif written. ; Compilation finished in 0:00:28. ;; Loading #p"/usr/people/jdboyd/.slime/fasl/cmu-18e/swank-cmucl.sgif". ;; Compiling /usr/people/jdboyd/slime/swank.lisp... ; Python version 1.1, VM version SGI on 15 NOV 04 08:41:02 pm. ; Compiling: /usr/people/jdboyd/slime/swank.lisp 01 NOV 04 09:15:55 am ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Converted DEFSLIMEFUN. ; Compiling DEFMACRO DEFSLIMEFUN: ; Converted MISSING-ARG. ; Compiling DEFUN MISSING-ARG: ; Converted ADD-HOOK. ; Compiling DEFMACRO ADD-HOOK: ; Converted RUN-HOOK. ; Compiling DEFUN RUN-HOOK: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Converted MAKE-CONNECTION. ; Compiling DEFSTRUCT CONNECTION: ; [GC threshold exceeded with 15,384,584 bytes in use. Commencing GC.] ; [GC completed with 3,444,104 bytes retained and 11,940,480 bytes freed.] ; [GC will next occur when at least 15,444,104 bytes are in use.] ; Compiling DEFSTRUCT CONNECTION: ; Converted PRINT-CONNECTION. ; Compiling DEFUN PRINT-CONNECTION: ; Byte Compiling Top-Level Form: ; Byte Compiling Creation Form for #<KERNEL::CLASS-CELL CONNECTION>: ; Converted DEFAULT-CONNECTION. ; Compiling DEFUN DEFAULT-CONNECTION: ; Converted STATE-STACK. ; Compiling DEFSLIMEFUN STATE-STACK: ; Byte Compiling Top-Level Form: ; Compiling DEFINE-CONDITION SLIME-PROTOCOL-ERROR: ; Converted NOTIFY-BACKEND-OF-CONNECTION. ; Compiling DEFUN NOTIFY-BACKEND-OF-CONNECTION: ; Converted WITH-IO-REDIRECTION. ; Compiling DEFMACRO WITH-IO-REDIRECTION: ; Byte Compiling Top-Level Form: ; Converted WITH-CONNECTION. ; Compiling DEFMACRO WITH-CONNECTION: ; Converted WITHOUT-INTERRUPTS. ; Compiling DEFMACRO WITHOUT-INTERRUPTS: ; Converted DESTRUCTURE-CASE. ; Compiling DEFMACRO DESTRUCTURE-CASE: ; Converted WITH-TEMP-PACKAGE. ; Compiling DEFMACRO WITH-TEMP-PACKAGE: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Converted START-SERVER. ; Compiling DEFUN START-SERVER: ; Converted CREATE-SERVER. ; Compiling DEFUN CREATE-SERVER: ; Converted CREATE-SWANK-SERVER. ; Compiling DEFUN CREATE-SWANK-SERVER: ; Converted SETUP-SERVER. ; Compiling DEFUN SETUP-SERVER: ; Converted SERVE-CONNECTION. ; Compiling DEFUN SERVE-CONNECTION: ; Byte Compiling Top-Level Form: ; Converted SERVE-REQUESTS. ; Compiling DEFUN SERVE-REQUESTS: ; Converted ANNOUNCE-SERVER-PORT. ; Compiling DEFUN ANNOUNCE-SERVER-PORT: ; Converted SIMPLE-ANNOUNCE-FUNCTION. ; Compiling DEFUN SIMPLE-ANNOUNCE-FUNCTION: ; Converted OPEN-STREAMS. ; Compiling DEFUN OPEN-STREAMS: ; Converted MAKE-OUTPUT-FUNCTION. ; Compiling DEFUN MAKE-OUTPUT-FUNCTION: ; Converted OPEN-DEDICATED-OUTPUT-STREAM. ; Compiling DEFUN OPEN-DEDICATED-OUTPUT-STREAM: ; Converted HANDLE-REQUEST. ; Compiling DEFUN HANDLE-REQUEST: ; Converted CURRENT-SOCKET-IO. ; Compiling DEFUN CURRENT-SOCKET-IO: ; Converted CLOSE-CONNECTION. ; Compiling DEFUN CLOSE-CONNECTION: ; Converted WITH-READER-ERROR-HANDLER. ; Compiling DEFMACRO WITH-READER-ERROR-HANDLER: ; Byte Compiling Top-Level Form: ; Converted SIMPLE-BREAK. ; Compiling DEFUN SIMPLE-BREAK: ; Converted READ-LOOP. ; Compiling DEFUN READ-LOOP: ; Converted DISPATCH-LOOP. ; Compiling DEFUN DISPATCH-LOOP: ; Converted REPL-THREAD. ; Compiling DEFUN REPL-THREAD: ; Converted FIND-WORKER-THREAD. ; Compiling DEFUN FIND-WORKER-THREAD: ; Converted INTERRUPT-WORKER-THREAD. ; Compiling DEFUN INTERRUPT-WORKER-THREAD: ; Converted THREAD-FOR-EVALUATION. ; Compiling DEFUN THREAD-FOR-EVALUATION: ; Byte Compiling Top-Level Form: ; Converted DISPATCH-EVENT. ; Compiling DEFUN DISPATCH-EVENT: ; Converted SPAWN-THREADS-FOR-CONNECTION. ; Compiling DEFUN SPAWN-THREADS-FOR-CONNECTION: ; Converted CLEANUP-CONNECTION-THREADS. ; Compiling DEFUN CLEANUP-CONNECTION-THREADS: ; Converted REPL-LOOP. ; Compiling DEFUN REPL-LOOP: ; Converted PROCESS-AVAILABLE-INPUT. ; Compiling DEFUN PROCESS-AVAILABLE-INPUT: ; Converted INSTALL-SIGIO-HANDLER. ; Compiling DEFUN INSTALL-SIGIO-HANDLER: ; Converted DEINSTALL-SIGIO-HANDLER. ; Compiling DEFUN DEINSTALL-SIGIO-HANDLER: ; Converted INSTALL-FD-HANDLER. ; Compiling DEFUN INSTALL-FD-HANDLER: ; Converted DEINSTALL-FD-HANDLER. ; Compiling DEFUN DEINSTALL-FD-HANDLER: ; Converted SIMPLE-SERVE-REQUESTS. ; Compiling DEFUN SIMPLE-SERVE-REQUESTS: ; Converted READ-FROM-SOCKET-IO. ; Compiling DEFUN READ-FROM-SOCKET-IO: ; Byte Compiling Top-Level Form: ; Converted SEND-TO-SOCKET-IO. ; Compiling DEFUN SEND-TO-SOCKET-IO: ; Converted INITIALIZE-STREAMS-FOR-CONNECTION. ; Compiling DEFUN INITIALIZE-STREAMS-FOR-CONNECTION: ; Converted CREATE-CONNECTION. ; Compiling DEFUN CREATE-CONNECTION: ; Converted SETUP-STREAM-INDIRECTION. ; Compiling DEFMACRO SETUP-STREAM-INDIRECTION: ; Converted PREFIXED-VAR. ; Compiling DEFUN PREFIXED-VAR: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Converted GLOBALLY-REDIRECT-IO-TO-CONNECTION. ; Compiling DEFUN GLOBALLY-REDIRECT-IO-TO-CONNECTION: ; Converted REVERT-GLOBAL-IO-REDIRECTION. ; Compiling DEFUN REVERT-GLOBAL-IO-REDIRECTION: ; Converted MAYBE-REDIRECT-GLOBAL-IO. ; Compiling DEFUN MAYBE-REDIRECT-GLOBAL-IO: ; Converted UPDATE-REDIRECTION-AFTER-CLOSE. ; Compiling DEFUN UPDATE-REDIRECTION-AFTER-CLOSE: ; Byte Compiling Top-Level Form: ; Converted CALL-WITH-REDIRECTED-IO. ; Compiling DEFUN CALL-WITH-REDIRECTED-IO: ; Converted LOG-EVENT. ; Compiling DEFUN LOG-EVENT: ; Converted READ-FROM-EMACS. ; Compiling DEFUN READ-FROM-EMACS: ; Converted READ-FROM-CONTROL-THREAD. ; Compiling DEFUN READ-FROM-CONTROL-THREAD: ; Converted DECODE-MESSAGE. ; Compiling DEFUN DECODE-MESSAGE: ; Converted READ-FORM. ; Compiling DEFUN READ-FORM: ; Byte Compiling Top-Level Form: ; Converted SEND-TO-EMACS. ; Compiling DEFUN SEND-TO-EMACS: ; Converted SEND-OOB-TO-EMACS. ; Compiling DEFUN SEND-OOB-TO-EMACS: ; Converted SEND-TO-CONTROL-THREAD. ; Compiling DEFUN SEND-TO-CONTROL-THREAD: ; Converted ENCODE-MESSAGE. ; Compiling DEFUN ENCODE-MESSAGE: ; Converted PRIN1-TO-STRING-FOR-EMACS. ; Compiling DEFUN PRIN1-TO-STRING-FOR-EMACS: ; Converted FORCE-USER-OUTPUT. ; Compiling DEFUN FORCE-USER-OUTPUT: ; Byte Compiling Top-Level Form: ; Converted CLEAR-USER-INPUT. ; Compiling DEFUN CLEAR-USER-INPUT: ; Converted INTERN-CATCH-TAG. ; Compiling DEFUN INTERN-CATCH-TAG: ; Converted READ-USER-INPUT-FROM-EMACS. ; Compiling DEFUN READ-USER-INPUT-FROM-EMACS: ; Converted TAKE-INPUT. ; Compiling DEFSLIMEFUN TAKE-INPUT: ; Byte Compiling Top-Level Form: ; Converted CONNECTION-INFO. ; Compiling DEFSLIMEFUN CONNECTION-INFO: ; Byte Compiling Top-Level Form: ; Converted DEFINE-SPECIAL. ; Compiling DEFMACRO DEFINE-SPECIAL: ; Byte Compiling Top-Level Form: ; Converted WITH-BUFFER-SYNTAX. ; Compiling DEFMACRO WITH-BUFFER-SYNTAX: ; Converted FROM-STRING. ; Compiling DEFUN FROM-STRING: ; Converted TOKENIZE-SYMBOL. ; Compiling DEFUN TOKENIZE-SYMBOL: ; Converted CASIFY. ; Compiling DEFUN CASIFY: ; [GC threshold exceeded with 15,483,864 bytes in use. Commencing GC.] ; [GC completed with 3,171,320 bytes retained and 12,312,544 bytes freed.] ; [GC will next occur when at least 15,171,320 bytes are in use.] ; Converted PARSE-SYMBOL. ; Compiling DEFUN PARSE-SYMBOL: ; Converted PARSE-SYMBOL-OR-LOSE. ; Compiling DEFUN PARSE-SYMBOL-OR-LOSE: ; Converted PARSE-PACKAGE. ; Compiling DEFUN PARSE-PACKAGE: ; Converted TO-STRING. ; Compiling DEFUN TO-STRING: ; Converted GUESS-PACKAGE-FROM-STRING. ; Compiling DEFUN GUESS-PACKAGE-FROM-STRING: ; Byte Compiling Top-Level Form: ; Converted GUESS-BUFFER-READTABLE. ; Compiling DEFUN GUESS-BUFFER-READTABLE: ; Converted VALID-OPERATOR-NAME-P. ; Compiling DEFUN VALID-OPERATOR-NAME-P: ; Converted ARGLIST-FOR-ECHO-AREA. ; Compiling DEFSLIMEFUN ARGLIST-FOR-ECHO-AREA: ; Byte Compiling Top-Level Form: ; Converted FORMAT-ARGLIST-FOR-ECHO-AREA. ; Compiling DEFUN FORMAT-ARGLIST-FOR-ECHO-AREA: ; Converted ARGLIST-TO-STRING. ; Compiling DEFUN ARGLIST-TO-STRING: ; Converted TEST-PRINT-ARGLIST. ; Compiling DEFUN TEST-PRINT-ARGLIST: ; Compiling ASSERT (TEST-PRINT-ARGLIST (QUOTE #) "(function cons)"): ; Byte Compiling Top-Level Form: ; Compiling ASSERT (TEST-PRINT-ARGLIST (QUOTE #) "(quote cons)"): ; Compiling ASSERT (TEST-PRINT-ARGLIST (QUOTE #) "(&key (function #'+))"): ; Converted VARIABLE-DESC-FOR-ECHO-AREA. ; Compiling DEFSLIMEFUN VARIABLE-DESC-FOR-ECHO-AREA: ; Byte Compiling Top-Level Form: ; Converted ARGLIST-FOR-INSERTION. ; Compiling DEFSLIMEFUN ARGLIST-FOR-INSERTION: ; Byte Compiling Top-Level Form: ; Converted EVAL-IN-EMACS. ; Compiling DEFUN EVAL-IN-EMACS: ; Converted GUESS-BUFFER-PACKAGE. ; Compiling DEFUN GUESS-BUFFER-PACKAGE: ; Converted EVAL-FOR-EMACS. ; Compiling DEFUN EVAL-FOR-EMACS: ; Converted FORMAT-VALUES-FOR-ECHO-AREA. ; Compiling DEFUN FORMAT-VALUES-FOR-ECHO-AREA: ; Converted INTERACTIVE-EVAL. ; Compiling DEFSLIMEFUN INTERACTIVE-EVAL: ; Byte Compiling Top-Level Form: ; Converted EVAL-REGION. ; Compiling DEFUN EVAL-REGION: ; Converted PACKAGE-STRING-FOR-PROMPT. ; Compiling DEFUN PACKAGE-STRING-FOR-PROMPT: ; Converted CANONICAL-PACKAGE-NICKNAME. ; Compiling DEFUN CANONICAL-PACKAGE-NICKNAME: ; Converted AUTO-ABBREVIATED-PACKAGE-NAME. ; Compiling DEFUN AUTO-ABBREVIATED-PACKAGE-NAME: ; Converted SHORTEST-PACKAGE-NICKNAME. ; Compiling DEFUN SHORTEST-PACKAGE-NICKNAME: ; Converted INTERACTIVE-EVAL-REGION. ; Compiling DEFSLIMEFUN INTERACTIVE-EVAL-REGION: ; Byte Compiling Top-Level Form: ; Converted RE-EVALUATE-DEFVAR. ; Compiling DEFSLIMEFUN RE-EVALUATE-DEFVAR: ; Byte Compiling Top-Level Form: ; Converted DEFINE-PRINTER-VARIABLES. ; Compiling DEFMACRO DEFINE-PRINTER-VARIABLES: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Converted WITH-PRINTER-SETTINGS. ; Compiling DEFMACRO WITH-PRINTER-SETTINGS: ; Converted SWANK-PPRINT. ; Compiling DEFUN SWANK-PPRINT: ; Converted PPRINT-EVAL. ; Compiling DEFSLIMEFUN PPRINT-EVAL: ; Byte Compiling Top-Level Form: ; Converted SET-PACKAGE. ; Compiling DEFSLIMEFUN SET-PACKAGE: ; Byte Compiling Top-Level Form: ; Converted LISTENER-EVAL. ; Compiling DEFSLIMEFUN LISTENER-EVAL: ; Byte Compiling Top-Level Form: ; Converted ED-IN-EMACS. ; Compiling DEFSLIMEFUN ED-IN-EMACS: ; Byte Compiling Top-Level Form: ; Converted SWANK-DEBUGGER-HOOK. ; Compiling DEFUN SWANK-DEBUGGER-HOOK: ; Converted INSTALL-DEBUGGER. ; Compiling DEFUN INSTALL-DEBUGGER: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Converted DEBUG-IN-EMACS. ; Compiling DEFUN DEBUG-IN-EMACS: ; Converted SLDB-LOOP. ; Compiling DEFUN SLDB-LOOP: ; Converted HANDLE-SLDB-CONDITION. ; Compiling DEFUN HANDLE-SLDB-CONDITION: ; Converted SAFE-CONDITION-MESSAGE. ; Compiling DEFUN SAFE-CONDITION-MESSAGE: ; Converted DEBUGGER-CONDITION-FOR-EMACS. ; Compiling DEFUN DEBUGGER-CONDITION-FOR-EMACS: ; Converted FORMAT-RESTARTS-FOR-EMACS. ; Compiling DEFUN FORMAT-RESTARTS-FOR-EMACS: ; Converted FRAME-FOR-EMACS. ; Compiling DEFUN FRAME-FOR-EMACS: ; Converted SLDB-BREAK-WITH-DEFAULT-DEBUGGER. ; Compiling DEFSLIMEFUN SLDB-BREAK-WITH-DEFAULT-DEBUGGER: ; Byte Compiling Top-Level Form: ; Converted BACKTRACE. ; Compiling DEFSLIMEFUN BACKTRACE: ; Byte Compiling Top-Level Form: ; Converted DEBUGGER-INFO-FOR-EMACS. ; Compiling DEFSLIMEFUN DEBUGGER-INFO-FOR-EMACS: ; Byte Compiling Top-Level Form: ; Converted NTH-RESTART. ; Compiling DEFUN NTH-RESTART: ; Converted INVOKE-NTH-RESTART. ; Compiling DEFSLIMEFUN INVOKE-NTH-RESTART: ; Byte Compiling Top-Level Form: ; Converted SLDB-ABORT. ; Compiling DEFSLIMEFUN SLDB-ABORT: ; Byte Compiling Top-Level Form: ; Converted SLDB-CONTINUE. ; Compiling DEFSLIMEFUN SLDB-CONTINUE: ; Byte Compiling Top-Level Form: ; Converted THROW-TO-TOPLEVEL. ; Compiling DEFSLIMEFUN THROW-TO-TOPLEVEL: ; Byte Compiling Top-Level Form: ; Converted INVOKE-NTH-RESTART-FOR-EMACS. ; Compiling DEFSLIMEFUN INVOKE-NTH-RESTART-FOR-EMACS: ; Byte Compiling Top-Level Form: ; Converted EVAL-STRING-IN-FRAME. ; Compiling DEFSLIMEFUN EVAL-STRING-IN-FRAME: ; Byte Compiling Top-Level Form: ; Converted PPRINT-EVAL-STRING-IN-FRAME. ; Compiling DEFSLIMEFUN PPRINT-EVAL-STRING-IN-FRAME: ; Byte Compiling Top-Level Form: ; Converted FRAME-LOCALS-FOR-EMACS. ; Compiling DEFSLIMEFUN FRAME-LOCALS-FOR-EMACS: ; Byte Compiling Top-Level Form: ; Converted FRAME-CATCH-TAGS-FOR-EMACS. ; Compiling DEFSLIMEFUN FRAME-CATCH-TAGS-FOR-EMACS: ; Byte Compiling Top-Level Form: ; Converted SLDB-DISASSEMBLE. ; Compiling DEFSLIMEFUN SLDB-DISASSEMBLE: ; Byte Compiling Top-Level Form: ; Converted SLDB-RETURN-FROM-FRAME. ; Compiling DEFSLIMEFUN SLDB-RETURN-FROM-FRAME: ; Byte Compiling Top-Level Form: ; Converted SLDB-BREAK. ; Compiling DEFSLIMEFUN SLDB-BREAK: ; Byte Compiling Top-Level Form: ; Converted SLDB-STEP. ; Compiling DEFSLIMEFUN SLDB-STEP: ; Byte Compiling Top-Level Form: ; Converted CLEAR-COMPILER-NOTES. ; Compiling DEFUN CLEAR-COMPILER-NOTES: ; Converted CANONICALIZE-FILENAME. ; Compiling DEFUN CANONICALIZE-FILENAME: ; Converted COMPILER-NOTES-FOR-EMACS. ; Compiling DEFSLIMEFUN COMPILER-NOTES-FOR-EMACS: ; Byte Compiling Top-Level Form: ; Converted MEASURE-TIME-INTERVAL. ; Compiling DEFUN MEASURE-TIME-INTERVAL: ; Converted RECORD-NOTE-FOR-CONDITION. ; Compiling DEFUN RECORD-NOTE-FOR-CONDITION: ; Converted MAKE-COMPILER-NOTE. ; Compiling DEFUN MAKE-COMPILER-NOTE: ; Byte Compiling Top-Level Form: ; Compiling Creation Form for #<KERNEL::CLASS-CELL COMPILER-CONDITION>: ; Converted SWANK-COMPILER. ; Compiling DEFUN SWANK-COMPILER: ; Converted COMPILE-FILE-FOR-EMACS. ; Compiling DEFSLIMEFUN COMPILE-FILE-FOR-EMACS: ; Byte Compiling Top-Level Form: ; Converted COMPILE-STRING-FOR-EMACS. ; Compiling DEFSLIMEFUN COMPILE-STRING-FOR-EMACS: ; Byte Compiling Top-Level Form: ; Converted OPERATE-ON-SYSTEM-FOR-EMACS. ; Compiling DEFSLIMEFUN OPERATE-ON-SYSTEM-FOR-EMACS: ; Byte Compiling Top-Level Form: ; Converted ASDF-CENTRAL-REGISTRY. ; Compiling DEFUN ASDF-CENTRAL-REGISTRY: ; Converted LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY. ; Compiling DEFSLIMEFUN LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY: ; Byte Compiling Top-Level Form: ; Converted FILE-NEWER-P. ; Compiling DEFUN FILE-NEWER-P: ; Converted REQUIRES-COMPILE-P. ; Compiling DEFUN REQUIRES-COMPILE-P: ; Converted COMPILE-FILE-IF-NEEDED. ; Compiling DEFSLIMEFUN COMPILE-FILE-IF-NEEDED: ; Byte Compiling Top-Level Form: ; Converted LOAD-FILE. ; Compiling DEFSLIMEFUN LOAD-FILE: ; Byte Compiling Top-Level Form: ; Converted LOAD-FILE-SET-PACKAGE. ; Compiling DEFSLIMEFUN LOAD-FILE-SET-PACKAGE: ; Byte Compiling Top-Level Form: ; Converted APPLY-MACRO-EXPANDER. ; Compiling DEFUN APPLY-MACRO-EXPANDER: ; Converted SWANK-MACROEXPAND-1. ; Compiling DEFSLIMEFUN SWANK-MACROEXPAND-1: ; Byte Compiling Top-Level Form: ; Converted SWANK-MACROEXPAND. ; Compiling DEFSLIMEFUN SWANK-MACROEXPAND: ; Byte Compiling Top-Level Form: ; Converted SWANK-MACROEXPAND-ALL. ; Compiling DEFSLIMEFUN SWANK-MACROEXPAND-ALL: ; Byte Compiling Top-Level Form: ; Converted DISASSEMBLE-SYMBOL. ; Compiling DEFSLIMEFUN DISASSEMBLE-SYMBOL: ; Byte Compiling Top-Level Form: ; Converted COMPLETIONS. ; Compiling DEFSLIMEFUN COMPLETIONS: ; Byte Compiling Top-Level Form: ; Converted SIMPLE-COMPLETIONS. ; Compiling DEFSLIMEFUN SIMPLE-COMPLETIONS: ; Byte Compiling Top-Level Form: ; Converted COMPLETION-SET. ; Compiling DEFUN COMPLETION-SET: ; Converted FIND-MATCHING-SYMBOLS. ; Compiling DEFUN FIND-MATCHING-SYMBOLS: ; Converted SYMBOL-EXTERNAL-P. ; Compiling DEFUN SYMBOL-EXTERNAL-P: ; Converted FIND-MATCHING-PACKAGES. ; Compiling DEFUN FIND-MATCHING-PACKAGES: ; Converted PARSE-COMPLETION-ARGUMENTS. ; Compiling DEFUN PARSE-COMPLETION-ARGUMENTS: ; Converted CAREFULLY-FIND-PACKAGE. ; Compiling DEFUN CAREFULLY-FIND-PACKAGE: ; Converted FORMAT-COMPLETION-SET. ; Compiling DEFUN FORMAT-COMPLETION-SET: ; Converted FORMAT-COMPLETION-RESULT. ; Compiling DEFUN FORMAT-COMPLETION-RESULT: ; Converted OUTPUT-CASE-CONVERTER. ; Compiling DEFUN OUTPUT-CASE-CONVERTER: ; [GC threshold exceeded with 15,203,720 bytes in use. Commencing GC.] ; [GC completed with 3,216,464 bytes retained and 11,987,256 bytes freed.] ; [GC will next occur when at least 15,216,464 bytes are in use.] ; Converted DETERMINE-CASE. ; Compiling DEFUN DETERMINE-CASE: ; Converted COMPOUND-PREFIX-MATCH. ; Compiling DEFUN COMPOUND-PREFIX-MATCH: ; Byte Compiling Top-Level Form: ; Converted PREFIX-MATCH-P. ; Compiling DEFUN PREFIX-MATCH-P: ; Converted LONGEST-COMPLETION. ; Compiling DEFUN LONGEST-COMPLETION: ; Converted TOKENIZE-COMPLETION. ; Compiling DEFUN TOKENIZE-COMPLETION: ; Converted UNTOKENIZE-COMPLETION. ; Compiling DEFUN UNTOKENIZE-COMPLETION: ; Converted LONGEST-COMMON-PREFIX. ; Compiling DEFUN LONGEST-COMMON-PREFIX: ; Converted TRANSPOSE-LISTS. ; Compiling DEFUN TRANSPOSE-LISTS: ; Byte Compiling Top-Level Form: ; Compiling LET ((*READTABLE* #) (P #)): ; Converted FUZZY-COMPLETIONS. ; Compiling DEFSLIMEFUN FUZZY-COMPLETIONS: ; Byte Compiling Top-Level Form: ; Converted FUZZY-COMPLETION-SET. ; Compiling DEFUN FUZZY-COMPLETION-SET: ; Converted FUZZY-FIND-MATCHING-SYMBOLS. ; Compiling DEFUN FUZZY-FIND-MATCHING-SYMBOLS: ; Converted FUZZY-FIND-MATCHING-PACKAGES. ; Compiling DEFUN FUZZY-FIND-MATCHING-PACKAGES: ; Converted FUZZY-COMPLETION-SELECTED. ; Compiling DEFSLIMEFUN FUZZY-COMPLETION-SELECTED: ; Byte Compiling Top-Level Form: ; Converted COMPUTE-HIGHEST-SCORING-COMPLETION. ; Compiling DEFUN COMPUTE-HIGHEST-SCORING-COMPLETION: ; Converted COMPUTE-MOST-COMPLETIONS. ; Compiling DEFUN COMPUTE-MOST-COMPLETIONS: ; Converted RECURSIVELY-COMPUTE-MOST-COMPLETIONS. ; Compiling DEFUN RECURSIVELY-COMPUTE-MOST-COMPLETIONS: ; Converted COMPUTE-COMPLETION. ; Compiling DEFUN COMPUTE-COMPLETION: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Converted SCORE-COMPLETION. ; Compiling DEFUN SCORE-COMPLETION: ; Converted HIGHLIGHT-COMPLETION. ; Compiling DEFUN HIGHLIGHT-COMPLETION: ; Converted FORMAT-FUZZY-COMPLETIONS. ; Compiling DEFUN FORMAT-FUZZY-COMPLETIONS: ; Converted APROPOS-LIST-FOR-EMACS. ; Compiling DEFSLIMEFUN APROPOS-LIST-FOR-EMACS: ; Byte Compiling Top-Level Form: ; Converted STRING-TO-PACKAGE-DESIGNATOR. ; Compiling DEFUN STRING-TO-PACKAGE-DESIGNATOR: ; Converted BRIEFLY-DESCRIBE-SYMBOL-FOR-EMACS. ; Compiling DEFUN BRIEFLY-DESCRIBE-SYMBOL-FOR-EMACS: ; Converted MAP-IF. ; Compiling DEFUN MAP-IF: ; Converted LISTIFY. ; Compiling DEFUN LISTIFY: ; Converted PRESENT-SYMBOL-BEFORE-P. ; Compiling DEFUN PRESENT-SYMBOL-BEFORE-P: ; Converted COMPILED-REGEX. ; Compiling DEFUN COMPILED-REGEX: ; Compiling Top-Level Form: ; Converted APROPOS-MATCHER. ; Compiling DEFUN APROPOS-MATCHER: ; Converted APROPOS-SYMBOLS. ; Compiling DEFUN APROPOS-SYMBOLS: ; Converted CALL-WITH-DESCRIBE-SETTINGS. ; Compiling DEFUN CALL-WITH-DESCRIBE-SETTINGS: ; Converted WITH-DESCRIBE-SETTINGS. ; Compiling DEFMACRO WITH-DESCRIBE-SETTINGS: ; Converted DESCRIBE-TO-STRING. ; Compiling DEFUN DESCRIBE-TO-STRING: ; Converted DESCRIBE-SYMBOL. ; Compiling DEFSLIMEFUN DESCRIBE-SYMBOL: ; Byte Compiling Top-Level Form: ; Converted DESCRIBE-FUNCTION. ; Compiling DEFSLIMEFUN DESCRIBE-FUNCTION: ; Byte Compiling Top-Level Form: ; Converted DESCRIBE-DEFINITION-FOR-EMACS. ; Compiling DEFSLIMEFUN DESCRIBE-DEFINITION-FOR-EMACS: ; Byte Compiling Top-Level Form: ; Converted DOCUMENTATION-SYMBOL. ; Compiling DEFSLIMEFUN DOCUMENTATION-SYMBOL: ; Byte Compiling Top-Level Form: ; Converted LIST-ALL-PACKAGE-NAMES. ; Compiling DEFSLIMEFUN LIST-ALL-PACKAGE-NAMES: ; Byte Compiling Top-Level Form: ; Converted TRACEDP. ; Compiling DEFUN TRACEDP: ; Converted TOGGLE-TRACE-FDEFINITION. ; Compiling DEFSLIMEFUN TOGGLE-TRACE-FDEFINITION: ; Byte Compiling Top-Level Form: ; Converted UNTRACE-ALL. ; Compiling DEFSLIMEFUN UNTRACE-ALL: ; Byte Compiling Top-Level Form: ; Converted UNDEFINE-FUNCTION. ; Compiling DEFSLIMEFUN UNDEFINE-FUNCTION: ; Byte Compiling Top-Level Form: ; Converted PROFILEDP. ; Compiling DEFUN PROFILEDP: ; Converted TOGGLE-PROFILE-FDEFINITION. ; Compiling DEFSLIMEFUN TOGGLE-PROFILE-FDEFINITION: ; Byte Compiling Top-Level Form: ; Converted FIND-DEFINITIONS-FOR-EMACS. ; Compiling DEFSLIMEFUN FIND-DEFINITIONS-FOR-EMACS: ; Byte Compiling Top-Level Form: ; Converted ALISTIFY. ; Compiling DEFUN ALISTIFY: ; Converted LOCATION-POSITION<. ; Compiling DEFUN LOCATION-POSITION<: ; Converted PARTITION. ; Compiling DEFUN PARTITION: ; Compiling DEFSTRUCT XREF: ; Byte Compiling Top-Level Form: ; Converted MAKE-XREF. ; Compiling DEFSTRUCT XREF: ; Converted XREF.DSPEC. ; Compiling DEFSTRUCT XREF: ; Converted (SETF XREF.DSPEC). ; Compiling DEFSTRUCT XREF: ; Converted XREF.LOCATION. ; Compiling DEFSTRUCT XREF: ; Converted (SETF XREF.LOCATION). ; Compiling DEFSTRUCT XREF: ; Byte Compiling Top-Level Form: ; Converted LOCATION-VALID-P. ; Compiling DEFUN LOCATION-VALID-P: ; Converted XREF-BUFFER. ; Compiling DEFUN XREF-BUFFER: ; Converted XREF-POSITION. ; Compiling DEFUN XREF-POSITION: ; Converted GROUP-XREFS. ; Compiling DEFUN GROUP-XREFS: ; Converted XREF. ; Compiling DEFSLIMEFUN XREF: ; Byte Compiling Top-Level Form: ; Converted COMMON-SEPERATED-SPEC. ; Compiling DEFUN COMMON-SEPERATED-SPEC: ; Converted INSPECTOR-PRINC. ; Compiling DEFUN INSPECTOR-PRINC: ; Compiling DEFMETHOD INSPECT-FOR-EMACS (CONS T): ; Converted INSPECT-FOR-EMACS-SIMPLE-CONS. ; Compiling DEFUN INSPECT-FOR-EMACS-SIMPLE-CONS: ; Converted INSPECT-FOR-EMACS-LIST. ; Compiling DEFUN INSPECT-FOR-EMACS-LIST: ; Converted SAFE-LENGTH. ; Compiling DEFUN SAFE-LENGTH: ; Compiling DEFMETHOD INSPECT-FOR-EMACS (HASH-TABLE T): ; Compiling DEFMETHOD INSPECT-FOR-EMACS (ARRAY T): ; Byte Compiling Top-Level Form: ; Compiling DEFMETHOD INSPECT-FOR-EMACS (CHARACTER T): ; Converted DOCSTRING-ISPEC. ; Compiling DEFUN DOCSTRING-ISPEC: ; [GC threshold exceeded with 15,239,408 bytes in use. Commencing GC.] ; [GC completed with 3,520,024 bytes retained and 11,719,384 bytes freed.] ; [GC will next occur when at least 15,520,024 bytes are in use.] ; Compiling DEFMETHOD INSPECT-FOR-EMACS (SYMBOL T): ; Compiling DEFMETHOD INSPECT-FOR-EMACS (FUNCTION T): ; Converted METHOD-SPECIALIZERS-FOR-INSPECT. ; Compiling DEFUN METHOD-SPECIALIZERS-FOR-INSPECT: ; Byte Compiling Top-Level Form: ; Compiling Creation Form for #<KERNEL::CLASS-CELL PCL:EQL-SPECIALIZER>: ; Converted METHOD-FOR-INSPECT-VALUE. ; Compiling DEFUN METHOD-FOR-INSPECT-VALUE: ; Compiling DEFMETHOD INSPECT-FOR-EMACS (STANDARD-OBJECT T): ; Converted SPECIALIZER<. ; Compiling DEFUN SPECIALIZER<: ; Converted METHODS-BY-APPLICABILITY. ; Compiling DEFUN METHODS-BY-APPLICABILITY: ; Byte Compiling Top-Level Form: ; Converted ABBREV-DOC. ; Compiling DEFUN ABBREV-DOC: ; Compiling DEFMETHOD INSPECT-FOR-EMACS (STANDARD-GENERIC-FUNCTION T): ; Compiling DEFMETHOD INSPECT-FOR-EMACS (STANDARD-METHOD T): ; Compiling DEFMETHOD INSPECT-FOR-EMACS (STANDARD-CLASS T): ; Compiling DEFMETHOD INSPECT-FOR-EMACS (PCL:STANDARD-SLOT-DEFINITION T): ; Compiling DEFMETHOD INSPECT-FOR-EMACS (PACKAGE T): ; Byte Compiling Top-Level Form: ; Compiling DEFMETHOD INSPECT-FOR-EMACS (PATHNAME T): ; Compiling DEFMETHOD INSPECT-FOR-EMACS (LOGICAL-PATHNAME T): ; Compiling DEFMETHOD INSPECT-FOR-EMACS (NUMBER T): ; Compiling DEFMETHOD INSPECT-FOR-EMACS (INTEGER T): ; Compiling DEFMETHOD INSPECT-FOR-EMACS (COMPLEX T): ; Byte Compiling Top-Level Form: ; Compiling DEFMETHOD INSPECT-FOR-EMACS (RATIO T): ; Compiling DEFMETHOD INSPECT-FOR-EMACS (FLOAT T): ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; Converted RESET-INSPECTOR. ; Compiling DEFUN RESET-INSPECTOR: ; Converted INIT-INSPECTOR. ; Compiling DEFSLIMEFUN INIT-INSPECTOR: ; Byte Compiling Top-Level Form: ; Converted PRINT-PART-TO-STRING. ; Compiling DEFUN PRINT-PART-TO-STRING: ; Converted INSPECTOR-CONTENT-FOR-EMACS. ; Compiling DEFUN INSPECTOR-CONTENT-FOR-EMACS: ; Converted ASSIGN-INDEX. ; Compiling DEFUN ASSIGN-INDEX: ; Converted VALUE-PART-FOR-EMACS. ; Compiling DEFUN VALUE-PART-FOR-EMACS: ; Converted ACTION-PART-FOR-EMACS. ; Compiling DEFUN ACTION-PART-FOR-EMACS: ; Converted INSPECT-OBJECT. ; Compiling DEFUN INSPECT-OBJECT: ; Converted INSPECTOR-NTH-PART. ; Compiling DEFSLIMEFUN INSPECTOR-NTH-PART: ; Byte Compiling Top-Level Form: ; Converted INSPECT-NTH-PART. ; Compiling DEFSLIMEFUN INSPECT-NTH-PART: ; Byte Compiling Top-Level Form: ; Converted INSPECTOR-CALL-NTH-ACTION. ; Compiling DEFSLIMEFUN INSPECTOR-CALL-NTH-ACTION: ; Byte Compiling Top-Level Form: ; Converted INSPECTOR-POP. ; Compiling DEFSLIMEFUN INSPECTOR-POP: ; Byte Compiling Top-Level Form: ; Converted INSPECTOR-NEXT. ; Compiling DEFSLIMEFUN INSPECTOR-NEXT: ; Byte Compiling Top-Level Form: ; Converted QUIT-INSPECTOR. ; Compiling DEFSLIMEFUN QUIT-INSPECTOR: ; Byte Compiling Top-Level Form: ; Converted DESCRIBE-INSPECTEE. ; Compiling DEFSLIMEFUN DESCRIBE-INSPECTEE: ; Byte Compiling Top-Level Form: ; Converted INSPECT-IN-FRAME. ; Compiling DEFSLIMEFUN INSPECT-IN-FRAME: ; Byte Compiling Top-Level Form: ; Converted INSPECT-CURRENT-CONDITION. ; Compiling DEFSLIMEFUN INSPECT-CURRENT-CONDITION: ; Byte Compiling Top-Level Form: ; Converted INSPECT-FRAME-VAR. ; Compiling DEFSLIMEFUN INSPECT-FRAME-VAR: ; Byte Compiling Top-Level Form: ; Converted LIST-THREADS. ; Compiling DEFSLIMEFUN LIST-THREADS: ; Byte Compiling Top-Level Form: ; Converted QUIT-THREAD-BROWSER. ; Compiling DEFSLIMEFUN QUIT-THREAD-BROWSER: ; Byte Compiling Top-Level Form: ; Converted NTH-THREAD. ; Compiling DEFUN NTH-THREAD: ; Converted DEBUG-NTH-THREAD. ; Compiling DEFSLIMEFUN DEBUG-NTH-THREAD: ; Byte Compiling Top-Level Form: ; Converted KILL-NTH-THREAD. ; Compiling DEFSLIMEFUN KILL-NTH-THREAD: ; Byte Compiling Top-Level Form: ; Converted START-SWANK-SERVER-IN-THREAD. ; Compiling DEFSLIMEFUN START-SWANK-SERVER-IN-THREAD: ; Byte Compiling Top-Level Form: ; Converted MOP-HELPER. ; Compiling DEFUN MOP-HELPER: ; Converted MOP. ; Compiling DEFSLIMEFUN MOP: ; Byte Compiling Top-Level Form: ; Converted SYNC-FEATURES-TO-EMACS. ; Compiling DEFUN SYNC-FEATURES-TO-EMACS: ; Converted UPDATE-INDENTATION-INFORMATION. ; Compiling DEFSLIMEFUN UPDATE-INDENTATION-INFORMATION: ; Byte Compiling Top-Level Form: ; Converted SYNC-INDENTATION-TO-EMACS. ; Compiling DEFUN SYNC-INDENTATION-TO-EMACS: ; Converted NEED-FULL-INDENTATION-UPDATE-P. ; Compiling DEFUN NEED-FULL-INDENTATION-UPDATE-P: ; Converted PERFORM-INDENTATION-UPDATE. ; Compiling DEFUN PERFORM-INDENTATION-UPDATE: ; Converted UPDATE-INDENTATION/DELTA-FOR-EMACS. ; Compiling DEFUN UPDATE-INDENTATION/DELTA-FOR-EMACS: ; [GC threshold exceeded with 15,976,880 bytes in use. Commencing GC.] ; [GC completed with 4,299,544 bytes retained and 11,677,336 bytes freed.] ; [GC will next occur when at least 16,299,544 bytes are in use.] ; Converted PACKAGE-NAMES. ; Compiling DEFUN PACKAGE-NAMES: ; Converted CL-SYMBOL-P. ; Compiling DEFUN CL-SYMBOL-P: ; Converted KNOWN-TO-EMACS-P. ; Compiling DEFUN KNOWN-TO-EMACS-P: ; Converted SYMBOL-INDENTATION. ; Compiling DEFUN SYMBOL-INDENTATION: ; Converted MACRO-INDENTATION. ; Compiling DEFUN MACRO-INDENTATION: ; Converted WELL-FORMED-LIST-P. ; Compiling DEFUN WELL-FORMED-LIST-P: ; Converted PRINT-INDENTATION-LOSSAGE. ; Compiling DEFUN PRINT-INDENTATION-LOSSAGE: ; Byte Compiling Top-Level Form: ; Byte Compiling Top-Level Form: ; home:.slime/fasl/cmu-18e/swank.sgif written. ; Compilation finished in 0:00:39. ;; Loading #p"/usr/people/jdboyd/.slime/fasl/cmu-18e/swank.sgif". Warning: SWANK also exports the following symbols: (SWANK:SET-PACKAGE SWANK:LIST-ALL-PACKAGE-NAMES SWANK:SWANK-MACROEXPAND-ALL SWANK:QUIT-THREAD-BROWSER SWANK:COMPILE-FILE-FOR-EMACS SWANK:UNTRACE-ALL SWANK:ARGLIST-FOR-ECHO-AREA SWANK:COMPILER-NOTES-FOR-EMACS SWANK:INSPECT-IN-FRAME SWANK:SLDB-DISASSEMBLE SWANK:VARIABLE-DESC-FOR-ECHO-AREA SWANK:INIT-INSPECTOR SWANK:TOGGLE-PROFILE-FDEFINITION SWANK:XREF SWANK:UNDEFINE-FUNCTION SWANK:SLDB-BREAK-WITH-DEFAULT-DEBUGGER SWANK:STATE-STACK SWANK:RE-EVALUATE-DEFVAR SWANK:LOAD-FILE SWANK:OPERATE-ON-SYSTEM-FOR-EMACS SWANK:INTERACTIVE-EVAL-REGION SWANK:DESCRIBE-DEFINITION-FOR-EMACS SWANK:SLDB-RETURN-FROM-FRAME SWANK:LIST-ALL-SYSTEMS-IN-CENTRAL-REGISTRY SWANK:INVOKE-NTH-RESTART SWANK:LIST-THREADS SWANK:SLDB-ABORT SWANK:INSPECTOR-NTH-PART SWANK:FRAME-CATCH-TAGS-FOR-EMACS SWANK:DESCRIBE-INSPECTEE SWANK:QUIT-INSPECTOR SWANK:INVOKE-NTH-RESTART-FOR-EMACS SWANK:DISASSEMBLE-SYMBOL SWANK:INSPECTOR-NEXT SWANK:TOGGLE-TRACE-FDEFINITION SWANK:INSPECTOR-POP SWANK:EVAL-STRING-IN-FRAME SWANK:DEBUGGER-INFO-FOR-EMACS SWANK:DESCRIBE-SYMBOL SWANK:INSPECT-FRAME-VAR SWANK:PPRINT-EVAL SWANK:FUZZY-COMPLETIONS SWANK:FRAME-LOCALS-FOR-EMACS SWANK:KILL-NTH-THREAD SWANK:THROW-TO-TOPLEVEL SWANK:FUZZY-COMPLETION-SELECTED SWANK:FIND-DEFINITIONS-FOR-EMACS SWANK:INSPECT-NTH-PART SWANK:SWANK-MACROEXPAND-1 SWANK:SWANK-MACROEXPAND SWANK:INTERACTIVE-EVAL SWANK:DEBUG-NTH-THREAD SWANK:DESCRIBE-FUNCTION SWANK:LISTENER-EVAL SWANK:LOAD-FILE-SET-PACKAGE SWANK:START-SWANK-SERVER-IN-THREAD SWANK:BACKTRACE SWANK:MOP SWANK:COMPLETIONS SWANK:PPRINT-EVAL-STRING-IN-FRAME SWANK:CONNECTION-INFO SWANK:TAKE-INPUT SWANK:DOCUMENTATION-SYMBOL SWANK:INSPECTOR-CALL-NTH-ACTION SWANK:COMPILE-STRING-FOR-EMACS SWANK:COMPILE-FILE-IF-NEEDED SWANK:INSPECT-CURRENT-CONDITION SWANK:SIMPLE-COMPLETIONS SWANK:APROPOS-LIST-FOR-EMACS SWANK:ARGLIST-FOR-INSERTION SWANK:SLDB-CONTINUE SWANK:UPDATE-INDENTATION-INFORMATION) ; ; ; File: /usr/people/jdboyd/slime/swank-cmucl.lisp ; In: DEFUN SWANK-BACKEND::READ-ERROR-LOCATION ; (C::COMPILER-READ-ERROR-POSITION CONDITION) ; Warning: Undefined function: C::COMPILER-READ-ERROR-POSITION ; ; In: DEFUN SWANK-BACKEND::SOURCE-LOCATION-FORM-NUMBERS ; (C::DECODE-FORM-NUMBERS (C::FORM-NUMBERS-FORM-NUMBERS LOCATION)) ; Warning: Undefined function: C::DECODE-FORM-NUMBERS ; ; In: DEFUN SWANK-BACKEND::FILE-SOURCE-LOCATION-P ; (C::FILE-SOURCE-LOCATION-P OBJECT) ; Warning: Undefined function: C::FILE-SOURCE-LOCATION-P ; ; In: DEFUN SWANK-BACKEND::RESOLVE-FILE-SOURCE-LOCATION ; (C::FILE-SOURCE-LOCATION-PATHNAME LOCATION) ; Warning: Undefined function: C::FILE-SOURCE-LOCATION-PATHNAME ; ; In: DEFUN SWANK-BACKEND::SOURCE-LOCATION-FORM-NUMBERS ; (C::FORM-NUMBERS-FORM-NUMBERS LOCATION) ; Warning: Undefined function: C::FORM-NUMBERS-FORM-NUMBERS ; ; In: DEFUN SWANK-BACKEND::STREAM-SOURCE-LOCATION-P ; (C::STREAM-SOURCE-LOCATION-P OBJECT) ; Warning: Undefined function: C::STREAM-SOURCE-LOCATION-P ; ; In: DEFUN SWANK-BACKEND::RESOLVE-STREAM-SOURCE-LOCATION ; (C::STREAM-SOURCE-LOCATION-USER-INFO LOCATION) ; Warning: Undefined function: C::STREAM-SOURCE-LOCATION-USER-INFO ; ; ; Warning: These functions are undefined: ; C::COMPILER-READ-ERROR-POSITION C::DECODE-FORM-NUMBERS C::FILE-SOURCE-LOCATION-P C::FILE-SOURCE-LOCATION-PATHNAME C::FORM-NUMBERS-FORM-NUMBERS C::STREAM-SOURCE-LOCATION-P C::STREAM-SOURCE-LOCATION-USER-INFO ; ; Compilation unit finished. ; 9 warnings ; 1 note Warning: These Swank interfaces are unimplemented: (ALL-THREADS FIND-THREAD INTERRUPT-THREAD RECEIVE RESTART-FRAME SEND SPAWN THREAD-ID WHO-MACROEXPANDS WHO-SPECIALIZES) T * Error in function CREATE-INET-LISTENER: Error binding socket to port 0: Cannot assign requested address Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) (CREATE-INET-LISTENER 0 :STREAM :HOST 2130706433 ...) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/internet.lisp. 0] ============================================================

2 1

[slime-devel] find-file-at-point on logical pathnames
by Håkon Alstadheim 16 Nov '04

16 Nov '04

I have a hack on ffap that I did just now. Needs more testing, but its so simple and so convenient that I Have to share it right away. Stick this in your .emacs file if you want to evaluate it. First, I customize the ffap-string-at-point variable and create a helper function. Then a doctored version of ffap-file-at-point. --- elisp code follows --- ;; File name constituents for lisp-mode ;; the string constituents could probably use some adjustment (setq ffap-string-at-point-mode-alist (cons '(lisp-mode "--:;$+<>@-Z_a-z~" "" "") ffap-string-at-point-mode-alist )) (defun ffap-slime-file (name) "Return unix version of lisp file NAME if slime is running and we are in a lisp buffer, and unix-file exists. Else return nil" (and (eql major-mode 'lisp-mode) (fboundp 'slime-connected-p) (slime-connected-p) (slime-eval `(cl:ignore-errors (cl:or (cl:and (cl:probe-file ,name) (ext:unix-namestring ,name)) (cl:and (cl:probe-file (cl:concatenate 'cl:string ,name ".lisp")) (ext:unix-namestring (cl:concatenate 'cl:string ,name ".lisp")))))))) ;; The following hacked version of ffap-file-at-point has ONE line changed, see comment ;; at the line (defun ffap-file-at-point nil "Return filename from around point if it exists, or nil. Existence test is skipped for names that look remote. If the filename is not obvious, it also tries `ffap-alist', which may actually result in an url rather than a filename." ;; Note: this function does not need to look for url's, just ;; filenames. On the other hand, it is responsible for converting ;; a pseudo-url "site.com://path" to an ftp path (let* ((case-fold-search t) ; url prefixes are case-insensitive (data (match-data)) (string (ffap-string-at-point)) ; uses mode alist (name (or (condition-case nil (and (not (string-match "//" string)) ; foo.com://bar (substitute-in-file-name string)) (error nil)) string)) (abs (file-name-absolute-p name)) (default-directory default-directory)) (unwind-protect (cond ;; Immediate rejects (/ and // are too common in C++): ((member name '("" "/" "//" ".")) nil) ((and (not abs) (ffap-slime-file name))) ;; This line is NEW NEW NEW ;; Immediately test local filenames. If default-directory is ;; remote, you probably already have a connection. ((and (not abs) (ffap-file-exists-string name))) ;; Try stripping off line numbers; good for compilation/grep output. ((and (not abs) (string-match ":[0-9]" name) (ffap-file-exists-string (substring name 0 (match-beginning 0))))) ;; Immediately test local filenames. If default-directory is ;; remote, you probably already have a connection. ((and (not abs) (ffap-file-exists-string name))) ;; Accept remote names without actual checking (too slow): ((if abs (ffap-file-remote-p name) ;; Try adding a leading "/" (common omission in ftp paths): (and ffap-ftp-sans-slash-regexp (string-match ffap-ftp-sans-slash-regexp name) (ffap-file-remote-p (concat "/" name))))) ;; Ok, not remote, try the existence test even if it is absolute: ((and abs (ffap-file-exists-string name))) ;; If it contains a colon, get rid of it (and return if exists) ((and (string-match path-separator name) (setq name (ffap-string-at-point 'nocolon)) (ffap-file-exists-string name))) ;; File does not exist, try the alist: ((let ((alist ffap-alist) tem try case-fold-search) (while (and alist (not try)) (setq tem (car alist) alist (cdr alist)) (if (or (eq major-mode (car tem)) (and (stringp (car tem)) (string-match (car tem) name))) (and (setq try (condition-case nil (funcall (cdr tem) name) (error nil))) (setq try (or (ffap-url-p try) ; not a file! (ffap-file-remote-p try) (ffap-file-exists-string try)))))) try)) ;; Alist failed? Try to guess an active remote connection ;; from buffer variables, and try once more, both as an ;; absolute and relative path on that remote host. ((let* (ffap-rfs-regexp ; suppress (remote-dir (cond ((ffap-file-remote-p default-directory)) ((and (eq major-mode 'internal-ange-ftp-mode) (string-match "^\\*ftp \$.*\$(a)\$.*\$\\*$" (buffer-name))) (concat "/" (substring (buffer-name) 5 -1) ":")) ;; This is too often a bad idea: ;;((and (eq major-mode 'w3-mode) ;; (stringp url-current-server)) ;; (host-to-ange-path url-current-server)) ))) (and remote-dir (or (and (string-match "\\`\$/?~?ftp\$/" name) (ffap-file-exists-string (ffap-replace-path-component remote-dir (substring name (match-end 1))))) (ffap-file-exists-string (ffap-replace-path-component remote-dir name)))))) ) (set-match-data data)))) --- elisp code ends --- The one point agains doing something like this is response time. If something like this is desired, I'll see about maybe doing it a bit more elegantly with an around method, althoug I don't quite see how to do that without worsening the response time even further. Would a custom function on the lisp side help speed things up?

1 0