Ignore:
Timestamp:
Apr 18, 2005, 6:44:07 AM (15 years ago)
Author:
gb
Message:

Some toplevel commands for getting/setting the current directory.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-readloop-lds.lisp

    r929 r1149  
    8686        (dolist (proc (all-processes) (values))
    8787          (show-process-info proc)))))
     88
     89(define-toplevel-command :global cd (dir) "Change to directory DIR" (setf (current-directory) dir) (toplevel-print (list (current-directory))))
     90
     91(define-toplevel-command :global pwd () "Print the pathame of the current directory" (toplevel-print (list (current-directory))))
     92
     93
    8894
    8995(define-toplevel-command :break pop () "exit current break loop" (abort-break))
Note: See TracChangeset for help on using the changeset viewer.