[slime-cvs] CVS update: slime/swank-allegro.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv2896

Modified Files:
	swank-allegro.lisp 
Log Message:
(default-directory, call-with-syntax-hooks): Add implementations as
workarounds for ACL5 bugs.

Date: Wed Jun 16 13:27:14 2004
Author: heller

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.34 slime/swank-allegro.lisp:1.35
--- slime/swank-allegro.lisp:1.34	Sat Jun 12 05:27:29 2004
+++ slime/swank-allegro.lisp	Wed Jun 16 13:27:14 2004
@@ -73,6 +73,12 @@
   (namestring (setf *default-pathname-defaults* 
                     (truename (merge-pathnames directory)))))
 
+(defimplementation default-directory ()
+  (excl:chdir))
+
+(defimplementation call-with-syntax-hooks (fn)
+  (funcall fn))
+
 ;;;; Misc
 
 (defimplementation arglist (symbol)