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

Diff of /slime/swank-backend.lisp

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

revision 1.50 by msimmons, Wed Jun 9 12:35:22 2004 UTC revision 1.51 by heller, Thu Jun 10 17:52:27 2004 UTC
# Line 158  that the calling thread is the one that Line 158  that the calling thread is the one that
158    "Return a short name for the Lisp implementation."    "Return a short name for the Lisp implementation."
159    (lisp-implementation-type))    (lisp-implementation-type))
160    
161    (definterface default-directory ()
162      "Return the default directory."
163      (directory-namestring (truename *default-pathname-defaults*)))
164    
165  (definterface set-default-directory (directory)  (definterface set-default-directory (directory)
166    "Set the default directory.    "Set the default directory.
167  This is used to resolve filenames without directory component."  This is used to resolve filenames without directory component."
168    (setf *default-pathname-defaults* (truename (merge-pathnames directory)))    (setf *default-pathname-defaults* (truename (merge-pathnames directory)))
169    (namestring *default-pathname-defaults*))    (default-directory))
170    
171    (definterface call-with-syntax-hooks (fn)
172      "Call FN with hooks to handle special syntax."
173      (funcall fn))
174    
175    
176  ;;;; Compilation  ;;;; Compilation

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

  ViewVC Help
Powered by ViewVC 1.1.5