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

Diff of /slime/swank.lisp

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

revision 1.302 by aruttenberg, Sat May 21 05:04:02 2005 UTC revision 1.303 by heller, Tue May 31 18:37:52 2005 UTC
# Line 414  if the file doesn't exist; otherwise the Line 414  if the file doesn't exist; otherwise the
414    
415  (defun simple-announce-function (port)  (defun simple-announce-function (port)
416    (when *swank-debug-p*    (when *swank-debug-p*
417      (format *debug-io* "~&;; Swank started at port: ~D.~%" port)))      (format *debug-io* "~&;; Swank started at port: ~D.~%" port)
418        (force-output *debug-io*)))
419    
420  (defun open-streams (connection)  (defun open-streams (connection)
421    "Return the 4 streams for IO redirection:    "Return the 4 streams for IO redirection:
# Line 2359  symbols are returned." Line 2360  symbols are returned."
2360  (defun symbol-external-p (symbol &optional (package (symbol-package symbol)))  (defun symbol-external-p (symbol &optional (package (symbol-package symbol)))
2361    "True if SYMBOL is external in PACKAGE.    "True if SYMBOL is external in PACKAGE.
2362  If PACKAGE is not specified, the home package of SYMBOL is used."  If PACKAGE is not specified, the home package of SYMBOL is used."
2363    (multiple-value-bind (_ status)    (unless package
2364        (find-symbol (symbol-name symbol) (or package (symbol-package symbol)))      (setq package (symbol-package symbol)))
2365      (declare (ignore _))    (when package
2366      (eq status :external)))      (multiple-value-bind (_ status)
2367            (find-symbol (symbol-name symbol) package)
2368          (declare (ignore _))
2369          (eq status :external))))
2370    
2371  (defun find-matching-packages (name matcher)  (defun find-matching-packages (name matcher)
2372    "Return a list of package names matching NAME with MATCHER.    "Return a list of package names matching NAME with MATCHER.

Legend:
Removed from v.1.302  
changed lines
  Added in v.1.303

  ViewVC Help
Powered by ViewVC 1.1.5