Add cdm xxx to cd {MEDLEY} xxx/

lispusers/UNIXYCD

@@ -1,24 +1,28 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "12-Aug-2022 12:29:18" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1
 568    
+
(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 11:14:47" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1)
+      :PREVIOUS-DATE "12-Aug-2022 12:29:18" {MEDLEY}<lispusers>UNIXYCD.;1)
 
 
 (PRETTYCOMPRINT UNIXYCDCOMS)
 
-(RPAQQ UNIXYCDCOMS
 ((COMMANDS "cd" "ls" "pwd")))
+(RPAQQ UNIXYCDCOMS
 ((COMMANDS "cd" cdm "ls" "pwd")))
 
-(DEFCOMMAND "cd"
 (DIR)
-   (/CNDIR DIR))
+(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
 
-(DEFCOMMAND "ls"
 (FIRST
 . REST)
-   (DODIR (CONS FIRST REST)))
+(DEFCOMMAND cdm (SUBDIR) (/CNDIR (CL:IF SUBDIR
+                                     (CONCAT '{MEDLEY}/ SUBDIR)
+                                     '{MEDLEY})))
 
-(DEFCOMMAND "pwd"
 ()
-   (DIRECTORYNAME T))
+(DEFCOMMAND "ls" (FIRST
 . REST) (DODIR (CONS FIRST REST)))
+
+(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL)))
 STOP

lispusers/UNIXYCD.LCOM

@@ -1,13 +0,0 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
-(FILECREATED "12-Aug-2022 12:29:30" ("compiled on " {DSK}<home>larry>medley>lispusers>UNIXYCD.;1) 
-"12-Aug-2022 10:18:11" bcompl'd in "Welcome to Fuller sysout 12-Aug-2022 ..." dated 
-"12-Aug-2022 10:22:21")
-(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" NIL (DIRECTORYNAME T))
-NIL