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

Diff of /slime/swank-allegro.lisp

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

revision 1.34 by heller, Sat Jun 12 12:27:29 2004 UTC revision 1.35 by heller, Wed Jun 16 20:27:14 2004 UTC
# Line 73  Line 73 
73    (namestring (setf *default-pathname-defaults*    (namestring (setf *default-pathname-defaults*
74                      (truename (merge-pathnames directory)))))                      (truename (merge-pathnames directory)))))
75    
76    (defimplementation default-directory ()
77      (excl:chdir))
78    
79    (defimplementation call-with-syntax-hooks (fn)
80      (funcall fn))
81    
82  ;;;; Misc  ;;;; Misc
83    
84  (defimplementation arglist (symbol)  (defimplementation arglist (symbol)

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

  ViewVC Help
Powered by ViewVC 1.1.5