/[slime]/slime/swank-lispworks.lisp
ViewVC logotype

Diff of /slime/swank-lispworks.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by heller, Wed Mar 10 08:24:45 2004 UTC revision 1.34 by heller, Wed Mar 10 09:10:33 2004 UTC
# Line 278  Return NIL if the symbol is unbound." Line 278  Return NIL if the symbol is unbound."
278               (delete-file binary-filename))))               (delete-file binary-filename))))
279      (delete-file filename)))      (delete-file filename)))
280    
281  (defun dspec-buffer-position (dspec)  (defun dspec-buffer-position (dspec offset)
282    (list :function-name (string (dspec:dspec-primary-name dspec))))    (etypecase dspec
283        (cons (let ((name (dspec:dspec-primary-name dspec)))
284                (etypecase name
285                  ((or symbol string)
286                   (list :function-name (string name)))
287                  (t (list :position offset)))))
288        (null (list :position offset))
289        (symbol (list :function-name (string dspec)))))
290    
291  (defun emacs-buffer-location-p (location)  (defun emacs-buffer-location-p (location)
292    (and (consp location)    (and (consp location)
# Line 300  Return NIL if the symbol is unbound." Line 307  Return NIL if the symbol is unbound."
307      (etypecase location      (etypecase location
308        ((or pathname string)        ((or pathname string)
309         (make-location `(:file ,(filename location))         (make-location `(:file ,(filename location))
310                        (dspec-buffer-position dspec)))                        (dspec-buffer-position dspec 1)))
311        (symbol `(:error ,(format nil "Cannot resolve location: ~S" location)))        (symbol `(:error ,(format nil "Cannot resolve location: ~S" location)))
312        ((satisfies emacs-buffer-location-p)        ((satisfies emacs-buffer-location-p)
313         (destructuring-bind (_ buffer offset string) location         (destructuring-bind (_ buffer offset string) location
314           (declare (ignore _ offset string))           (declare (ignore _ string))
315           (make-location `(:buffer ,buffer)           (make-location `(:buffer ,buffer)
316                          (dspec-buffer-position dspec)))))))                          (dspec-buffer-position dspec offset)))))))
317    
318  (defun signal-error-data-base (database location)  (defun signal-error-data-base (database location)
319    (map-error-database    (map-error-database

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

  ViewVC Help
Powered by ViewVC 1.1.5