[slime-devel] Some small fixes/enhancements for swank-cmucl

[Raymond Toy]

Here are a couple of small fixes.  They're not patches, but the changes
are very simple.  If you want a patch, I can send that too.

First, let swank-cmucl figure out where gdb is:

(defvar *gdb-program-name*
  (ext:enumerate-search-list (p "path:gdb")
    (when (probe-file p)
      (return p))))

Also, disassemble-frame doesn't work on Mac OS X.  I guess the prompt is
not quite right.  Here is replacement that works for me:

(defun gdb-command (format-string &rest args)
  (let ((str (gdb-exec (format nil
                               "interpreter-exec mi2 \"attach ~d\"~%~
                                interpreter-exec console ~s~%detach"
                               (getpid)
                               (apply #'format nil format-string args))))
        (prompt (format nil
                        #-(and darwin x86) "~%^done~%(gdb) ~%"
                        #+(and darwin x86)
"~%^done,thread-id=\"1\"~%(gdb) ~%")))
    (subseq str (+ (or (search prompt str) 0) (length prompt)))))

Not sure about the (or (search prompt str) 0) part, but it might be
better to suck in the whole string than to error out when search return NIL.

Ray