/[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.88 by heller, Fri Mar 12 21:12:57 2004 UTC revision 1.89 by heller, Thu Mar 18 21:55:07 2004 UTC
# Line 148  Line 148 
148  (defimplementation lisp-implementation-type-name ()  (defimplementation lisp-implementation-type-name ()
149    "cmucl")    "cmucl")
150    
151    (defimplementation set-default-directory (directory)
152      (setf (ext:default-directory) directory)
153      (namestring (setf *default-pathname-defaults* (ext:default-directory))))
154    
155    
156  ;;;; Stream handling  ;;;; Stream handling
157    

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

  ViewVC Help
Powered by ViewVC 1.1.5