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

Diff of /slime/swank-cmucl.lisp

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

revision 1.40 by heller, Fri Dec 12 22:52:02 2003 UTC revision 1.41 by heller, Sun Dec 14 07:48:43 2003 UTC
# Line 26  Line 26 
26           (address (car (ext:host-entry-addr-list hostent))))           (address (car (ext:host-entry-addr-list hostent))))
27      (ext:htonl address)))      (ext:htonl address)))
28    
 (defvar *start-swank-in-background* t)  
 (defvar *close-swank-socket-after-setup* t)  
 (defvar *use-dedicated-output-stream* t)  
   
29  (defun create-swank-server (port &key (reuse-address t)  (defun create-swank-server (port &key (reuse-address t)
30                              (address "localhost")                              (address "localhost")
31                              (announce #'simple-announce-function)                              (announce #'simple-announce-function)
# Line 343  the error-context redundant." Line 339  the error-context redundant."
339                          :emacs-buffer-offset ,position                          :emacs-buffer-offset ,position
340                          :emacs-buffer-string ,string))))))                          :emacs-buffer-string ,string))))))
341    
342    (defmethod compile-system-for-emacs (system-name)
343      (with-compilation-hooks ()
344        (cond ((ext:featurep :asdf)
345               (let ((operate (find-symbol (string :operate) :asdf))
346                     (load-op (find-symbol (string :load-op) :asdf)))
347                 (funcall operate load-op system-name)))
348              (t (error "ASDF not loaded")))))
349    
350    
351  ;;;; XREF  ;;;; XREF
352    
# Line 861  The result has the format \"(...)\"." Line 865  The result has the format \"(...)\"."
865    (with-output-to-string (*standard-output*)    (with-output-to-string (*standard-output*)
866      (c::print-all-blocks (expand-ir1-top-level (from-string form)))))      (c::print-all-blocks (expand-ir1-top-level (from-string form)))))
867    
 (defun tracedp (fname)  
   (gethash (debug::trace-fdefinition fname)  
            debug::*traced-functions*))  
   
 (defslimefun toggle-trace-fdefinition (fname-string)  
   (let ((fname (from-string fname-string)))  
     (cond ((tracedp fname)  
            (debug::untrace-1 fname)  
            (format nil "~S is now untraced." fname))  
           (t  
            (debug::trace-1 fname (debug::make-trace-info))  
            (format nil "~S is now traced." fname)))))  
   
868  (defslimefun set-default-directory (directory)  (defslimefun set-default-directory (directory)
869    (setf (ext:default-directory) (namestring directory))    (setf (ext:default-directory) (namestring directory))
870    ;; Setting *default-pathname-defaults* to an absolute directory    ;; Setting *default-pathname-defaults* to an absolute directory

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

  ViewVC Help
Powered by ViewVC 1.1.5