(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)


(FILECREATED "27-Apr-2026 23:10:40" {WMEDLEY}<lispusers>UNIXYCD.;2
 738    

      :EDIT-BY rmk

      :CHANGES-TO (VARS UNIXYCDCOMS)
                  (COMMANDS cdm)

      :PREVIOUS-DATE "12-Aug-2022 12:29:18" {MEDLEY}<lispusers>UNIXYCD.;1)


(PRETTYCOMPRINT UNIXYCDCOMS)

(RPAQQ UNIXYCDCOMS
 ((COMMANDS "cd" cdm "ls" "pwd")))

(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))

(DEFCOMMAND cdm (SUBDIR) (/CNDIR (CL:IF SUBDIR
                                     (CONCAT '{MEDLEY}/ SUBDIR)
                                     '{MEDLEY})))

(DEFCOMMAND "ls" (FIRST
 . REST) (DODIR (CONS FIRST REST)))

(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP