Changeset 14934
- Timestamp:
- Aug 8, 2011, 3:34:23 PM (13 years ago)
- File:
-
- 1 edited
-
trunk/source/level-1/l1-readloop-lds.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-readloop-lds.lisp
r14483 r14934 86 86 (show-process-info proc))))) 87 87 88 (define-toplevel-command :global cd (dir) "Change to directory DIR " (setf (current-directory) dir) (toplevel-print (list (current-directory))))88 (define-toplevel-command :global cd (dir) "Change to directory DIR (e.g., #p\"ccl:\" or \"/some/dir\")" (setf (current-directory) dir) (toplevel-print (list (current-directory)))) 89 89 90 90 (define-toplevel-command :global pwd () "Print the pathame of the current directory" (toplevel-print (list (current-directory))))
Note:
See TracChangeset
for help on using the changeset viewer.
