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

[slime-devel] mirroring slime's cvs repo with arch
by Marco Baringer 15 Dec '03

15 Dec '03

UnCommon Web uses slime's debugging functions to provide some server debugging tools. however both slime and ucw are moving targets and i occasionaly have problems integrating the two, if slime were to use arch, or if an arch interface to slime's cvs repo existed, i would be able to specify exactly which version of slime works with which version of ucw. What i would like to do is create a read-only arch repository which maps slime's cvs repository. This would require: 1) a place to put the arch repo under public_html. 2) a loginfo script which keeps the two repos in sync. would you guys be willing to do this? [If, for whatever reason, this idea doesn't appeal that's fine, I will simply create this slime repo inside the bese project and do the updates manually.] -- -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

3 2

[slime-devel] inspect, eval-in-frame, inspect-in-frame for openmcl
by Alan Ruttenberg 14 Dec '03

14 Dec '03

Most of this is copied from swank-cmucl. The parts between &&&&& are what I added for openmcl. I piggyback off the inspector which is shipped with openmcl, so inspecting won't look the same as it would in cmucl, I imagine. Still, it's a start. eval in frame uses frame-locals to get bindings so if you have debug settings low or don't have *save-local-symbols* set you won't be able to evaluate. -Alan (in-package :swank) ;;;; Inspecting (defvar *inspectee*) (defvar *inspectee-parts*) (defvar *inspector-stack* '()) (defvar *inspector-history* (make-array 10 :adjustable t :fill-pointer 0)) (defvar *inspect-length* 30) (defun reset-inspector () (setq *inspectee* nil) (setq *inspectee-parts* nil) (setq *inspector-stack* nil) (setf (fill-pointer *inspector-history*) 0)) (defslimefun init-inspector (string) (reset-inspector) (inspect-object (eval (from-string string)))) (defun print-part-to-string (value) (let ((*print-pretty* nil)) (let ((string (to-string value)) (pos (position value *inspector-history*))) (if pos (format nil "#~D=~A" pos string) string)))) (defun inspect-object (object) (push (setq *inspectee* object) *inspector-stack*) (unless (find object *inspector-history*) (vector-push-extend object *inspector-history*)) (multiple-value-bind (text parts) (inspected-parts object) (setq *inspectee-parts* parts) (list :text text :type (to-string (type-of object)) :primitive-type (describe-primitive-type object) :parts (loop for (label . value) in parts collect (cons label (print-part-to-string value)))))) (defun nth-part (index) (cdr (nth index *inspectee-parts*))) (defslimefun inspect-nth-part (index) (inspect-object (nth-part index))) (defslimefun inspector-pop () "Drop the inspector stack and inspect the second element. Return nil if there's no second element." (cond ((cdr *inspector-stack*) (pop *inspector-stack*) (inspect-object (pop *inspector-stack*))) (t nil))) (defslimefun inspector-next () "Inspect the next element in the *inspector-history*." (let ((position (position *inspectee* *inspector-history*))) (cond ((= (1+ position) (length *inspector-history*)) nil) (t (inspect-object (aref *inspector-history* (1+ position))))))) (defslimefun quit-inspector () (reset-inspector) nil) (defslimefun describe-inspectee () "Describe the currently inspected object." (print-description-to-string *inspectee*)) (defgeneric inspected-parts (object) (:documentation "Return a short description and a list of (label . value) pairs.")) ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& ; specific to openmcl (defvar *value2tag* (make-hash-table)) (do-symbols (s (find-package 'arch)) (if (and (> (length (symbol-name s)) 7) (string= (symbol-name s) "SUBTAG-" :end1 7) (boundp s) (numberp (symbol-value s)) (< (symbol-value s) 255)) (setf (gethash (symbol-value s) *value2tag*) s))) (defun describe-primitive-type (thing) (let ((typecode (ccl::typecode thing))) (if (gethash typecode *value2tag*) (string (gethash typecode *value2tag*)) (string (nth typecode '(tag-fixnum tag-list tag-misc tag-imm)))))) (defmethod inspected-parts (o) (let* ((i (inspector::make-inspector o)) (count (inspector::compute-line-count i)) (lines (loop for l below count for (value label) = (multiple-value-list (inspector::line-n i l)) collect (cons (string-right-trim " :" (string-capitalize (format nil "~a" label))) value)))) (values (string-left-trim (string #\newline) (with-output-to-string (s) (let ((*print-lines* 1) (*print-right-margin* 80)) (pprint o s)))) (cddr lines)))) (defslimefun eval-in-frame (form index) (map-backtrace #'(lambda (frame-number p tcr lfun pc) (when (= frame-number index) (multiple-value-bind (count vsp parent-vsp) (ccl::count-values-in-frame p tcr) (let ((bindings nil)) (dotimes (i count) (multiple-value-bind (var type name) (ccl::nth-value-in-frame p i tcr lfun pc vsp parent-vsp) (declare (ignore type)) (when name (push (list name `',var) bindings)) )) (return-from eval-in-frame (eval `(let ,bindings (Declare (ccl::ignore-if-unused ,@(mapcar 'car bindings))) ,form))) )))))) (defslimefun inspect-in-frame (string index) (reset-inspector) (inspect-object (eval-in-frame (from-string string) index))) ;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& (defmethod inspected-parts ((object cons)) (if (consp (cdr object)) (inspected-parts-of-nontrivial-list object) (inspected-parts-of-simple-cons object))) (defun inspected-parts-of-simple-cons (object) (values "The object is a CONS." (list (cons (string 'car) (car object)) (cons (string 'cdr) (cdr object))))) (defun inspected-parts-of-nontrivial-list (object) (let ((length 0) (in-list object) (reversed-elements nil)) (flet ((done (description-format) (return-from inspected-parts-of-nontrivial-list (values (format nil description-format length) (nreverse reversed-elements))))) (loop (cond ((null in-list) (done "The object is a proper list of length ~S.~%")) ((>= length *inspect-length*) (push (cons (string 'rest) in-list) reversed-elements) (done "The object is a long list (more than ~S elements).~%")) ((consp in-list) (push (cons (format nil "~D" length) (pop in-list)) reversed-elements) (incf length)) (t (push (cons (string 'rest) in-list) reversed-elements) (done "The object is an improper list of length ~S.~%")))))))

2 1

[slime-devel] edit-definition
by Alan Ruttenberg 14 Dec '03

14 Dec '03

Fails for a definition defined like this: (defun common-lisp-user::myfunction ()) -Alan

2 1

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 14 Dec '03

14 Dec '03

Index: slime/ChangeLog diff -u slime/ChangeLog:1.157 slime/ChangeLog:1.159 --- slime/ChangeLog:1.157 Fri Dec 12 17:58:31 2003 +++ slime/ChangeLog Sat Dec 13 05:15:44 2003 @@ -1,3 +1,12 @@ +2003-12-13 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * swank-openmcl.lisp (create-swank-server): Interrupt the right + thread. Patch by Alan Ruttenberg. Not yet enabled, due to lack + of test platform. + (sldb-disassemble): Implement sldb-disasssemble command. Patch by + Alan Ruttenberg. + Remove #' from lambdas. + 2003-12-12 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> * swank-cmucl.lisp (create-swank-server): New keyword arguments to @@ -19,7 +28,7 @@ (list-callers): Fixed some more. method-name is not exported in 0.14. From Marco Baringer. (swank-accept-connection): Accept multiple connections. Patch by - Marco Basringer. + Marco Baringer. * swank-loader.lisp (user-init-file): Use homedir's truename. Reported by Friedrich Dominicus.

1 0

[slime-devel] cmucl multithread problem
by William Conrad Halliburton 13 Dec '03

13 Dec '03

Using cmucl 18e and a CVS from a couple of days ago. (mp::startup-idle-and-top-level-loops) from slime-repl hangs slime-repl but works when ran from inferior-lisp (slime-repl still works afterwards). Upgraded to latest CVS and now the inferior-lisp is taken up by the slime server, while before I was able to use both inferior-lisp and slime-repl. Hacked a fix in slime.el but is nonportable. Started the mutithreading from slime and placed slime server into a thread. (defun slime-maybe-start-lisp () "Start an inferior lisp unless one is already running." (unless (get-buffer-process (get-buffer "*inferior-lisp*")) (call-interactively 'inferior-lisp) (comint-proc-query (inferior-lisp-proc) "(mp::startup-idle-and-top-level-loops)") (comint-proc-query (inferior-lisp-proc) (format "(load %S)\n" (concat slime-path slime-backend))))) (defun slime-start-swank-server () "Start a Swank server on the inferior lisp." (comint-proc-query (inferior-lisp-proc) (format "(mp::make-process (lambda () (swank:start-server %S)) :name \"slime\")\n" (slime-swank-port-file))))

4 3

[slime-devel] slime-disassemble
by Alan Ruttenberg 13 Dec '03

13 Dec '03

swank:sldb-disassemble -> swank::sldb-disassemble (two colons) since it is not exported. (defun sldb-disassemble () "Disassemble the code for the current frame." (interactive) (let ((frame (sldb-frame-number-at-point))) (slime-eval-async `(swank::sldb-disassemble ,frame) nil (lambda (result) (slime-show-description result nil))))) -Alan

2 1

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 13 Dec '03

13 Dec '03

Index: slime/ChangeLog diff -u slime/ChangeLog:1.154 slime/ChangeLog:1.157 --- slime/ChangeLog:1.154 Thu Dec 11 22:22:36 2003 +++ slime/ChangeLog Fri Dec 12 17:58:31 2003 @@ -1,3 +1,36 @@ +2003-12-12 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * swank-cmucl.lisp (create-swank-server): New keyword arguments to + control the server: BACKGROUND and CLOSE. fd-handlers are used if + BACKGROUND is true. If close CLOSE is true, close the socket + after the first connection; keep it open otherwise. + *start-swank-in-background*, *close-swank-socket-after-setup*: The + default values of the corresponding arguments for + create-swank-server. + (compile-file-for-emacs): Don't load the fasl-file when the + compilation failed. + + * swank-openmcl.lisp (toggle-trace-fdefinition, tracedp): + Implement trace command. Patch by Alan Ruttenberg. + (find-function-locations, find-source-locations): Handle + variables, and method-combinations. General cleanups. + (source-info-first-file-name): Removed. + (list-callers): Fixed. + (list-callers): Fixed some more. method-name is not exported in + 0.14. From Marco Baringer. + (swank-accept-connection): Accept multiple connections. Patch by + Marco Basringer. + + * swank-loader.lisp (user-init-file): Use homedir's truename. + Reported by Friedrich Dominicus. + + * slime.el (slime-repl-current-input): Don't remove the final + newline if we are in reading state. + (slime-goto-source-location): Regex-quote the function-name and + handle package prefixes. Reported by Alan Ruttenberg. + (slime-output-string): Insert asynchronous output before the + prompt. + 2003-12-12 Daniel Barlow <dan(a)telent.net> * swank-source-path-parser.lisp: new file, excerpting part of

1 0

[slime-devel] sldb-disassemble for openmcl
by Alan Ruttenberg 13 Dec '03

13 Dec '03

(defslimefun sldb-disassemble (the-frame-number) "Return a string with the disassembly of frames code." (let ((function-to-disassemble nil)) (block find-frame (map-backtrace #'(lambda(frame-number p tcr lfun pc) (declare (ignore p tcr pc)) (when (= frame-number the-frame-number) (setq function-to-disassemble lfun) (return-from find-frame)) ))) (with-output-to-string (s) (ccl::print-ppc-instructions s (ccl::function-to-dll-header function-to-disassemble) nil)))) -Alan

1 0

[slime-devel] 2 more small changes
by Marco Baringer 12 Dec '03

12 Dec '03

this patch simply defines the list-callees function as un-implemented on openmcl and the swank-accept-connection loops so that the same server can be used more once. -- -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] Why not use system:add-fd-handler in cmucl?
by Håkon Alstadheim 12 Dec '03

12 Dec '03

The create-swank-server function in swank-cmucl.lisp has been changed from doing: (system:add-fd-handler fd :input #'accept-connection) into just doing: (accept-connection fd) This means one must enable multi-processing to run slime. I /think/ the former method is more efficient, but I guess that's marginal. The fact that local set up can more easily break slime is a real downside though. So what's the upside to this change?

2 2