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


(FILECREATED "12-Aug-2022 12:29:18" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1
 568    

      :CHANGES-TO (VARS UNIXYCDCOMS)

      :PREVIOUS-DATE "12-Aug-2022 11:14:47" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1)


(PRETTYCOMPRINT UNIXYCDCOMS)

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

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

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

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