From 132a33af2f8a83dee8f62003d9e07f79c591210b Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Mon, 27 Apr 2026 23:19:37 -0700
Subject: [PATCH] Add cdm xxx to cd {MEDLEY} xxx/

---
 lispusers/UNIXYCD      |  24 ++++++++++++++----------
 lispusers/UNIXYCD.LCOM |  13 -------------
 lispusers/UNIXYCD.TXT  | Bin 430 -> 596 bytes
 3 files changed, 14 insertions(+), 23 deletions(-)
 delete mode 100644 lispusers/UNIXYCD.LCOM

diff --git a/lispusers/UNIXYCD b/lispusers/UNIXYCD
index e6dd17ee..b3a657ad 100644
--- a/lispusers/UNIXYCD
+++ b/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
diff --git a/lispusers/UNIXYCD.LCOM b/lispusers/UNIXYCD.LCOM
deleted file mode 100644
index 013420cc..00000000
--- a/lispusers/UNIXYCD.LCOM
+++ /dev/null
@@ -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
diff --git a/lispusers/UNIXYCD.TXT b/lispusers/UNIXYCD.TXT
index 670e3988e852dcb74aecdbbd48fb93286c6e3e06..7aa5a88a26720004d0c15ab241eede71baa0fca9 100644
GIT binary patch
delta 297
zcmZ3-e1&C#DEI&W3=CW#_@7~-geoVL3*^}QX=fHI6s6`QmSmQtDwO0a_+%Crs23|F
zmlhSJ=9MU<WEQ0+m*f{!>M3}ZOzcsqPfp3@OwLHmO9!gXNX1kKG6N)0P@GztlAn=Z
zT%u6z>+0g;8d(dr_CEvA1dy>rnNnPu1a|>QlY&To9;$g@KfQNmhZ;WFn9)%k%I4%$
eC@x4%&P=ORfP$Q2g|z&9eVE#QMp=kH1}*?e#b{Un

delta 111
zcmcb@vW|IzC^Huq*F*(XCLrnOH}QnBy#hMOOjF3qS5V5xFD}VT%uQ8N$ShV!&n!#L
v(^1GQQ7=|VEG{n1O-)g#b_w>b<(gc_=*-A9`2?dQkQ88&1d;|!vOwbjRFfR4