Changeset 7726 for branches

Timestamp:

Nov 24, 2007, 6:27:20 PM (17 years ago)

Author:

Gary Byers

Message:

SET-CCL-DIRECTORY. Should be exported.

File:

• branches/working-0711/ccl/level-1/l1-boot-1.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-boot-1.lisp

@@ -96 +96 @@
       trans))))
 
+(defun set-ccl-directory (path)
+  (replace-base-translation "ccl:" (translate-logical-pathname path)))
+