github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

dir and fb behave badly when filing.enumeration.depth is T; change it (#151)

Browse Source 
"fix" (of sorts) for #140
This commit is contained in:
Larry Masinter 2021-01-14 23:33:19 -08:00 committed by GitHub
parent 1121d1e19f
commit 64b2a4978a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
greetfiles/SIMPLE-INIT
View File

@ -1 +1 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 6-Dec-2020 00:28:41" {DSK}<home>larry>ilisp>nmedley>greetfiles>SIMPLE-INIT.;6 1103 changes to%: (VARS SIMPLE-INITCOMS) previous date%: " 5-Dec-2020 20:01:16" {DSK}<home>larry>ilisp>nmedley>greetfiles>SIMPLE-INIT.;5 ) (PRETTYCOMPRINT SIMPLE-INITCOMS) (RPAQQ SIMPLE-INITCOMS ( (* ;;; " Previous content moved into SYNCLISPFILES") [VARS [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"] (USERGREETFILES `((,LOGINDIR "INIT" COM) (,LOGINDIR "INIT"] (P (SETQ MEDLEYDIR NIL) (MEDLEY-INIT-VARS)))) (* ;;; " Previous content moved into SYNCLISPFILES") (RPAQ LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME")))) (RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM) (,LOGINDIR "INIT"))) (SETQ MEDLEYDIR NIL) (MEDLEY-INIT-VARS) (DECLARE%: DONTCOPY (FILEMAP (NIL))) STOP
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "14-Jan-2021 21:50:10" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;4 1186 changes to%: (VARS SIMPLE-INITCOMS) previous date%: " 6-Dec-2020 00:28:41" {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;3 ) (PRETTYCOMPRINT SIMPLE-INITCOMS) (RPAQQ SIMPLE-INITCOMS ( (* ;;; " Previous content moved into SYNCLISPFILES ") [VARS (FILING.ENUMERATION.DEPTH 1) [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"] (USERGREETFILES `((,LOGINDIR "INIT" COM) (,LOGINDIR "INIT"] (P (SETQ MEDLEYDIR NIL) (MEDLEY-INIT-VARS)))) (* ;;; " Previous content moved into SYNCLISPFILES ") (RPAQQ FILING.ENUMERATION.DEPTH 1) (RPAQ LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME")))) (RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM) (,LOGINDIR "INIT"))) (SETQ MEDLEYDIR NIL) (MEDLEY-INIT-VARS) (DECLARE%: DONTCOPY (FILEMAP (NIL))) STOP