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

Diff of /slime/swank.lisp

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

revision 1.154 by lgorrie, Fri Mar 26 13:24:48 2004 UTC revision 1.155 by heller, Sat Mar 27 21:14:52 2004 UTC
# Line 575  element." Line 575  element."
575           (*terminal-io* io))           (*terminal-io* io))
576      (funcall function)))      (funcall function)))
577    
578    (defvar *log-io* *terminal-io*)
579    
580  (defun log-event (format-string &rest args)  (defun log-event (format-string &rest args)
581    "Write a message to *terminal-io* when *log-events* is non-nil.    "Write a message to *terminal-io* when *log-events* is non-nil.
582  Useful for low level debugging."  Useful for low level debugging."
583    (when *log-events*    (when *log-events*
584      (apply #'format *terminal-io* format-string args)))      (apply #'format *log-io* format-string args)))
585    
586  (defun read-from-emacs ()  (defun read-from-emacs ()
587    "Read and process a request from Emacs."    "Read and process a request from Emacs."
# Line 1036  The debugger hook is inhibited during th Line 1038  The debugger hook is inhibited during th
1038    
1039  (defslimefun interactive-eval (string)  (defslimefun interactive-eval (string)
1040    (let ((values (multiple-value-list    (let ((values (multiple-value-list
1041                   (let ((*package* *buffer-package*))                   (eval (let ((*package* *buffer-package*))
1042                     (eval (from-string string))))))                           (from-string string))))))
1043      (fresh-line)      (fresh-line)
1044      (force-output)      (force-output)
1045      (format-values-for-echo-area values)))      (format-values-for-echo-area values)))
# Line 1218  Record compiler notes signalled as `comp Line 1220  Record compiler notes signalled as `comp
1220  (defslimefun swank-macroexpand-all (string)  (defslimefun swank-macroexpand-all (string)
1221    (apply-macro-expander #'macroexpand-all string))    (apply-macro-expander #'macroexpand-all string))
1222    
1223  (defslimefun disassemble-symbol (symbol-name)  (defslimefun disassemble-symbol (name)
1224    (with-output-to-string (*standard-output*)    (with-output-to-string (*standard-output*)
1225      (disassemble (find-symbol-or-lose symbol-name))))      (disassemble (fdefinition (from-string name)))))
1226    
1227    
1228  ;;;; Completion  ;;;; Completion
# Line 1513  that symbols accessible in the current p Line 1515  that symbols accessible in the current p
1515             (string< (package-name (symbol-package a))             (string< (package-name (symbol-package a))
1516                      (package-name (symbol-package b)))))))                      (package-name (symbol-package b)))))))
1517    
1518  (defun apropos-symbols (string &optional external-only package)  (defun apropos-symbols (string external-only package)
1519    (remove-if (lambda (sym)    (remove-if (lambda (sym)
1520                 (or (keywordp sym)                 (or (keywordp sym)
1521                     (and external-only                     (and external-only (not (symbol-external-p sym)))
1522  ;;                        (not (equal (symbol-package sym) *buffer-package*))                     (and package (not (eq (symbol-package sym) package)))))
                         (not (symbol-external-p sym)))))  
1523               (apropos-list string package)))               (apropos-list string package)))
1524    
1525  (defun describe-to-string (object)  (defun describe-to-string (object)

Legend:
Removed from v.1.154  
changed lines
  Added in v.1.155

  ViewVC Help
Powered by ViewVC 1.1.5