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

Diff of /slime/swank.lisp

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

revision 1.88 by vsedach, Thu Jan 8 07:02:20 2004 UTC revision 1.89 by heller, Fri Jan 9 18:51:18 2004 UTC
# Line 475  The debugger hook is inhibited during th Line 475  The debugger hook is inhibited during th
475    "Evaluate STRING and return the result.    "Evaluate STRING and return the result.
476  If PACKAGE-UPDATE-P is non-nil, and evaluation causes a package  If PACKAGE-UPDATE-P is non-nil, and evaluation causes a package
477  change, then send Emacs an update."  change, then send Emacs an update."
478    (unwind-protect    (let ((*package* *buffer-package*))
479        (do ((*package* *buffer-package*)      (unwind-protect
480             (str-length (length string))           (do ((length (length string))
481             (pos 0)                (pos 0)
482             (form nil)                (- nil)
483             (return-value nil (multiple-value-list (eval form))))                (return-value nil (multiple-value-list (eval -))))
484            ((= pos str-length) (values return-value form))               ((= pos length) (values return-value -))
485          (multiple-value-setq (form pos)             (multiple-value-setq (- pos)
486            (read-from-string string nil nil :start pos)))               (read-from-string string nil nil :start pos)))
487      (when (and package-update-p (not (eq *package* *buffer-package*)))        (when (and package-update-p (not (eq *package* *buffer-package*)))
488        (send-to-emacs (list :new-package (shortest-package-nickname *package*))))))          (send-to-emacs (list :new-package
489                                 (shortest-package-nickname *package*)))))))
490    
491  (defun shortest-package-nickname (package)  (defun shortest-package-nickname (package)
492    "Return the shortest nickname (or canonical name) of PACKAGE."    "Return the shortest nickname (or canonical name) of PACKAGE."

Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89

  ViewVC Help
Powered by ViewVC 1.1.5