Permalink
Browse files

Allegro specific version of set-default-directory

  • Loading branch information...
1 parent 18a98b6 commit 38b61c281192eb209a084e593f8682363d1c823d Peter Seibel committed Apr 7, 2004
Showing with 7 additions and 0 deletions.
  1. +3 −0 ChangeLog
  2. +4 −0 swank-allegro.lisp
View
@@ -1,5 +1,8 @@
2004-04-07 Peter Seibel <peter@javamonkey.com>
+ * swank-allegro.lisp (set-default-directory): Allegro specific
+ version that also uses excl:chdir.
+
* swank.lisp (swank-pprint): Add swank versions of two missing
pretty-printer control variables.
View
@@ -60,6 +60,10 @@
(defimplementation lisp-implementation-type-name ()
"allegro")
+(defimplementation set-default-directory (directory)
+ (excl:chdir directory)
+ (namestring (setf *default-pathname-defaults* (pathname directory))))
+
;;;; Misc
(defimplementation arglist (symbol)

0 comments on commit 38b61c2

Please sign in to comment.