|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: f
Length: 8658 (0x21d2)
Names: »ftp.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/lisp/ftp.elc«
0x0000…0020 0a 28 64 65 66 76 61 72 20 66 74 70 2d 70 61 73 73 77 6f 72 64 2d 61 6c 69 73 74 20 6e 69 6c 20 ┆ (defvar ftp-password-alist nil ┆ 0x0020…0040 22 5c 0a 53 65 63 75 72 69 74 79 20 73 75 63 6b 73 22 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 ┆"\ Security sucks") (defun read┆ 0x0040…0060 2d 66 74 70 2d 75 73 65 72 2d 70 61 73 73 77 6f 72 64 20 28 68 6f 73 74 20 75 73 65 72 20 6e 65 ┆-ftp-user-password (host user ne┆ 0x0060…0080 77 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 18 09 3f 85 20 00 0a 3c 85 20 00 c7 0b 0a 5c 22 ┆w) (byte-code " ? < \"┆ 0x0080…00a0 41 89 10 85 20 00 0c 3f 86 20 00 c8 0c 08 40 5c 22 83 27 00 08 82 97 00 0c 86 52 00 0a 3c 85 36 ┆A ? @\" ' R < 6┆ 0x00a0…00c0 00 c7 0b 0a 5c 22 41 40 86 3b 00 c9 20 89 10 88 ca cb cc 0b 08 23 21 89 14 88 cd 0c ce 5c 22 85 ┆ \"A@ ; #! \" ┆ 0x00c0…00e0 52 00 08 89 14 88 0c ca cb cf 0c 0b 23 0a 3c 3f 83 64 00 ce 82 77 00 c7 0b 0a 5c 22 41 41 86 77 ┆R # <? d w \"AA w┆ 0x00e0…0100 00 0a 1d d0 d1 8d 29 86 77 00 ce 5c 22 42 89 10 88 d2 ce 21 88 0a 3c 85 8b 00 c8 08 41 ce 5c 22 ┆ ) w \"B ! < A \"┆ 0x0100…0120 3f 85 95 00 0b 08 42 0a 42 89 12 88 08 29 87 22 20 5b 74 65 6d 20 6e 65 77 20 66 74 70 2d 70 61 ┆? B B ) " [tem new ftp-pa┆ 0x0120…0140 73 73 77 6f 72 64 2d 61 6c 69 73 74 20 68 6f 73 74 20 75 73 65 72 20 6c 20 6e 69 6c 20 61 73 73 ┆ssword-alist host user l nil ass┆ 0x0140…0160 6f 63 20 73 74 72 69 6e 67 3d 20 75 73 65 72 2d 6c 6f 67 69 6e 2d 6e 61 6d 65 20 72 65 61 64 2d ┆oc string= user-login-name read-┆ 0x0160…0180 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 20 22 55 73 65 72 2d 6e 61 6d 65 20 66 6f 72 20 25 73 20 ┆string format "User-name for %s ┆ 0x0180…01a0 28 64 65 66 61 75 6c 74 20 5c 22 25 73 5c 22 29 3a 20 22 20 65 71 75 61 6c 20 22 22 20 22 50 61 ┆(default \"%s\"): " equal "" "Pa┆ 0x01a0…01c0 73 73 77 6f 72 64 20 66 6f 72 20 25 73 40 25 73 3a 20 22 20 66 6f 6f 20 28 62 79 74 65 2d 63 6f ┆ssword for %s@%s: " foo (byte-co┆ 0x01c0…01e0 64 65 20 22 08 85 20 00 c3 08 40 41 40 09 5c 22 83 18 00 c4 c5 08 40 41 41 5c 22 82 1c 00 08 41 ┆de " @A@ \" @AA\" A┆ 0x01e0…0200 89 10 88 82 00 00 88 c2 87 22 20 5b 6c 20 75 73 65 72 20 6e 69 6c 20 73 74 72 69 6e 67 3d 20 74 ┆ " [l user nil string= t┆ 0x0200…0220 68 72 6f 77 20 66 6f 6f 5d 20 35 29 20 6d 65 73 73 61 67 65 5d 20 31 34 29 29 0a 0a 28 64 65 66 ┆hrow foo] 5) message] 14)) (def┆ 0x0220…0240 75 6e 20 66 74 70 2d 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 70 72 6f 6d 70 74 29 20 28 ┆un ftp-read-file-name (prompt) (┆ 0x0240…0260 62 79 74 65 2d 63 6f 64 65 20 22 c2 18 c3 c4 08 5c 22 3f 85 14 00 c5 09 08 5c 22 89 10 88 82 02 ┆byte-code " \"? \" ┆ 0x0260…0280 00 88 08 c6 c7 21 c8 c7 21 4f 08 c6 c9 21 c8 c9 21 4f 44 29 87 22 20 5b 73 20 70 72 6f 6d 70 74 ┆ ! !O ! !OD) " [s prompt┆ 0x0280…02a0 20 22 22 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5b 20 09 5d 2a 5c 5c 28 5b 5e 20 ┆ "" string-match "\\`[ ]*\\([^ ┆ 0x02a0…02c0 09 3a 5d 2b 5c 5c 29 5b 20 09 5d 2a 3a 5c 5c 28 2e 2b 5c 5c 29 5c 5c 27 22 20 72 65 61 64 2d 73 ┆ :]+\\)[ ]*:\\(.+\\)\\'" read-s┆ 0x02c0…02e0 74 72 69 6e 67 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 31 20 6d 61 74 63 68 2d 65 6e ┆tring match-beginning 1 match-en┆ 0x02e0…0300 64 20 32 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 66 74 70 2d 66 69 6e 64 2d 66 69 6c 65 20 ┆d 2] 10)) (defun ftp-find-file ┆ 0x0300…0320 28 68 6f 73 74 20 66 69 6c 65 20 26 6f 70 74 69 6f 6e 61 6c 20 75 73 65 72 20 70 61 73 73 77 6f ┆(host file &optional user passwo┆ 0x0320…0340 72 64 29 20 22 5c 0a 46 54 50 20 74 6f 20 48 4f 53 54 20 74 6f 20 67 65 74 20 46 49 4c 45 2c 20 ┆rd) "\ FTP to HOST to get FILE, ┆ 0x0340…0360 6c 6f 67 67 69 6e 67 20 69 6e 20 61 73 20 55 53 45 52 20 77 69 74 68 20 70 61 73 73 77 6f 72 64 ┆logging in as USER with password┆ 0x0360…0380 20 50 41 53 53 57 4f 52 44 2e 0a 49 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 48 4f 53 54 20 61 ┆ PASSWORD. Interactively, HOST a┆ 0x0380…03a0 6e 64 20 46 49 4c 45 20 61 72 65 20 73 70 65 63 69 66 69 65 64 20 62 79 20 72 65 61 64 69 6e 67 ┆nd FILE are specified by reading┆ 0x03a0…03c0 20 61 20 73 74 72 69 6e 67 20 77 69 74 68 0a 20 61 20 63 6f 6c 6f 6e 20 63 68 61 72 61 63 74 65 ┆ a string with a colon characte┆ 0x03c0…03e0 72 20 73 65 70 61 72 61 74 69 6e 67 20 74 68 65 20 68 6f 73 74 20 66 72 6f 6d 20 74 68 65 20 66 ┆r separating the host from the f┆ 0x03e0…0400 69 6c 65 6e 61 6d 65 2e 0a 55 53 45 52 20 61 6e 64 20 50 41 53 53 57 4f 52 44 20 61 72 65 20 64 ┆ilename. USER and PASSWORD are d┆ 0x0400…0420 65 66 61 75 6c 74 65 64 20 66 72 6f 6d 20 74 68 65 20 76 61 6c 75 65 73 20 75 73 65 64 20 77 68 ┆efaulted from the values used wh┆ 0x0420…0440 65 6e 0a 20 6c 61 73 74 20 66 74 70 69 6e 67 20 66 72 6f 6d 20 48 4f 53 54 20 28 75 6e 6c 65 73 ┆en last ftping from HOST (unles┆ 0x0440…0460 73 20 70 61 73 73 77 6f 72 64 2d 72 65 6d 65 6d 62 65 72 69 6e 67 20 69 73 20 64 69 73 61 62 6c ┆s password-remembering is disabl┆ 0x0460…0480 65 64 29 2e 0a 20 53 75 70 70 6c 79 20 61 20 70 61 73 73 77 6f 72 64 20 6f 66 20 74 68 65 20 73 ┆ed). Supply a password of the s┆ 0x0480…04a0 79 6d 62 6f 6c 20 60 74 27 20 74 6f 20 6f 76 65 72 72 69 64 65 20 74 68 69 73 20 64 65 66 61 75 ┆ymbol `t' to override this defau┆ 0x04a0…04c0 6c 74 0a 20 28 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 74 68 69 73 20 69 73 20 64 6f 6e 65 ┆lt (interactively, this is done┆ 0x04c0…04e0 20 62 79 20 67 69 76 69 6e 67 20 61 20 70 72 65 66 69 78 20 61 72 67 29 22 20 28 69 6e 74 65 72 ┆ by giving a prefix arg)" (inter┆ 0x04e0…0500 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 c4 21 c0 09 3f 3f 44 5c 22 87 22 ┆active (byte-code " ! ??D\" "┆ 0x0500…0520 20 5b 6e 69 6c 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 61 70 70 65 6e 64 20 ┆ [nil current-prefix-arg append ┆ 0x0520…0540 66 74 70 2d 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 46 54 50 20 67 65 74 20 68 6f 73 74 ┆ftp-read-file-name "FTP get host┆ 0x0540…0560 3a 66 69 6c 65 3a 20 22 5d 20 35 29 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c7 0a 0b c4 ┆:file: "] 5)) (byte-code " ┆ 0x0560…0580 0d 0e 06 25 87 22 20 5b 6e 69 6c 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 68 ┆ % " [nil current-prefix-arg h┆ 0x0580…05a0 6f 73 74 20 66 69 6c 65 20 74 20 75 73 65 72 20 70 61 73 73 77 6f 72 64 20 66 74 70 2d 66 69 6e ┆ost file t user password ftp-fin┆ 0x05a0…05c0 64 2d 66 69 6c 65 2d 6f 72 2d 64 69 72 65 63 74 6f 72 79 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e ┆d-file-or-directory] 6)) (defun┆ 0x05c0…05e0 20 66 74 70 2d 6c 69 73 74 2d 64 69 72 65 63 74 6f 72 79 20 28 68 6f 73 74 20 66 69 6c 65 20 26 ┆ ftp-list-directory (host file &┆ 0x05e0…0600 6f 70 74 69 6f 6e 61 6c 20 75 73 65 72 20 70 61 73 73 77 6f 72 64 29 20 22 5c 0a 46 54 50 20 74 ┆optional user password) "\ FTP t┆ 0x0600…0620 6f 20 48 4f 53 54 20 74 6f 20 6c 69 73 74 20 44 49 52 45 43 54 4f 52 59 2c 20 6c 6f 67 67 69 6e ┆o HOST to list DIRECTORY, loggin┆ 0x0620…0640 67 20 69 6e 20 61 73 20 55 53 45 52 20 77 69 74 68 20 70 61 73 73 77 6f 72 64 20 50 41 53 53 57 ┆g in as USER with password PASSW┆ 0x0640…0660 4f 52 44 2e 0a 49 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 48 4f 53 54 20 61 6e 64 20 46 49 4c ┆ORD. Interactively, HOST and FIL┆ 0x0660…0680 45 20 61 72 65 20 73 70 65 63 69 66 69 65 64 20 62 79 20 72 65 61 64 69 6e 67 20 61 20 73 74 72 ┆E are specified by reading a str┆ 0x0680…06a0 69 6e 67 20 77 69 74 68 0a 20 61 20 63 6f 6c 6f 6e 20 63 68 61 72 61 63 74 65 72 20 73 65 70 61 ┆ing with a colon character sepa┆ 0x06a0…06c0 72 61 74 69 6e 67 20 74 68 65 20 68 6f 73 74 20 66 72 6f 6d 20 74 68 65 20 66 69 6c 65 6e 61 6d ┆rating the host from the filenam┆ 0x06c0…06e0 65 2e 0a 55 53 45 52 20 61 6e 64 20 50 41 53 53 57 4f 52 44 20 61 72 65 20 64 65 66 61 75 6c 74 ┆e. USER and PASSWORD are default┆ 0x06e0…0700 65 64 20 66 72 6f 6d 20 74 68 65 20 76 61 6c 75 65 73 20 75 73 65 64 20 77 68 65 6e 0a 20 6c 61 ┆ed from the values used when la┆ 0x0700…0720 73 74 20 66 74 70 69 6e 67 20 66 72 6f 6d 20 48 4f 53 54 20 28 75 6e 6c 65 73 73 20 70 61 73 73 ┆st ftping from HOST (unless pass┆ 0x0720…0740 77 6f 72 64 2d 72 65 6d 65 6d 62 65 72 69 6e 67 20 69 73 20 64 69 73 61 62 6c 65 64 29 2e 0a 20 ┆word-remembering is disabled). ┆ 0x0740…0760 53 75 70 70 6c 79 20 61 20 70 61 73 73 77 6f 72 64 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 ┆Supply a password of the symbol ┆ 0x0760…0780 60 74 27 20 74 6f 20 6f 76 65 72 72 69 64 65 20 74 68 69 73 20 64 65 66 61 75 6c 74 0a 20 28 69 ┆`t' to override this default (i┆ 0x0780…07a0 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 74 68 69 73 20 69 73 20 64 6f 6e 65 20 62 79 20 67 69 ┆nteractively, this is done by gi┆ 0x07a0…07c0 76 69 6e 67 20 61 20 70 72 65 66 69 78 20 61 72 67 29 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 ┆ving a prefix arg)" (interactive┆ 0x07c0…07e0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 c4 21 c0 09 3f 3f 44 5c 22 87 22 20 5b 6e 69 6c 20 ┆ (byte-code " ! ??D\" " [nil ┆ 0x07e0…0800 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 61 70 70 65 6e 64 20 66 74 70 2d 72 65 ┆current-prefix-arg append ftp-re┆ 0x0800…0820 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 46 54 50 20 67 65 74 20 68 6f 73 74 3a 64 69 72 65 63 ┆ad-file-name "FTP get host:direc┆ 0x0820…0840 74 6f 72 79 3a 20 22 5d 20 35 29 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c6 0a 0b c0 0c ┆tory: "] 5)) (byte-code " ┆ 0x0840…0860 0d 25 87 22 20 5b 6e 69 6c 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 68 6f 73 ┆ % " [nil current-prefix-arg hos┆ 0x0860…0880 74 20 66 69 6c 65 20 75 73 65 72 20 70 61 73 73 77 6f 72 64 20 66 74 70 2d 66 69 6e 64 2d 66 69 ┆t file user password ftp-find-fi┆ 0x0880…08a0 6c 65 2d 6f 72 2d 64 69 72 65 63 74 6f 72 79 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 66 74 70 ┆le-or-directory] 6)) (defun ftp┆ 0x08a0…08c0 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 72 2d 64 69 72 65 63 74 6f 72 79 20 28 68 6f 73 74 20 66 69 ┆-find-file-or-directory (host fi┆ 0x08c0…08e0 6c 65 20 66 69 6c 65 70 20 26 6f 70 74 69 6f 6e 61 6c 20 75 73 65 72 20 70 61 73 73 77 6f 72 64 ┆le filep &optional user password┆ 0x08e0…0900 29 20 22 5c 0a 46 54 50 20 74 6f 20 48 4f 53 54 20 74 6f 20 67 65 74 20 46 49 4c 45 2e 20 20 54 ┆) "\ FTP to HOST to get FILE. T┆ 0x0900…0920 68 69 72 64 20 61 72 67 20 69 73 20 74 20 66 6f 72 20 66 69 6c 65 2c 20 6e 69 6c 20 66 6f 72 20 ┆hird arg is t for file, nil for ┆ 0x0920…0940 64 69 72 65 63 74 6f 72 79 2e 0a 4c 6f 67 20 69 6e 20 61 73 20 55 53 45 52 20 77 69 74 68 20 50 ┆directory. Log in as USER with P┆ 0x0940…0960 41 53 53 57 4f 52 44 2e 20 20 49 66 20 55 53 45 52 20 69 73 20 6e 69 6c 20 6f 72 20 50 41 53 53 ┆ASSWORD. If USER is nil or PASS┆ 0x0960…0980 57 4f 52 44 20 69 73 20 6e 69 6c 20 6f 72 20 74 2c 0a 77 65 20 70 72 6f 6d 70 74 20 66 6f 72 20 ┆WORD is nil or t, we prompt for ┆ 0x0980…09a0 74 68 65 20 75 73 65 72 20 6e 61 6d 65 20 61 6e 64 20 70 61 73 73 77 6f 72 64 2e 22 20 28 62 79 ┆the user name and password." (by┆ 0x09a0…09c0 74 65 2d 63 6f 64 65 20 22 08 85 0c 00 09 85 0c 00 09 c2 3d 3f 86 1e 00 cc 0b 08 09 c2 3d 23 10 ┆te-code " =? =# ┆ 0x09c0…09e0 08 41 11 08 40 89 10 88 cd ce cf 0d 83 2a 00 d0 82 2b 00 d1 0b 0e 06 24 21 1c 0c 71 88 d2 0b 0e ┆ A @ * + $! q ┆ 0x09e0…0a00 06 5c 22 c9 1e 08 1e 07 c9 1e 0a d3 8e d4 0e 07 0b 08 09 24 89 16 0a 83 56 00 d5 d6 21 82 59 00 ┆ \" $ V ! Y ┆ 0x0a00…0a20 d7 d8 21 29 29 88 d5 d9 0d 83 66 00 da 82 67 00 db 0b 0e 06 24 88 dc 0e 07 ce dd 0d 83 79 00 de ┆ !)) f g $ y ┆ 0x0a20…0a40 82 7a 00 df 0e 06 23 e0 e1 24 83 a2 00 e2 e3 21 88 c9 1e 0b e4 65 60 5c 22 29 88 d5 e5 0b 0e 06 ┆ z # $ ! e`\") ┆ 0x0a40…0a60 23 88 e6 0e 07 e7 5c 22 88 0e 07 82 b9 00 e8 0c 21 88 c9 1e 0b e9 ea 21 29 88 eb 0e 07 21 88 d7 ┆# \" ! !) ! ┆ 0x0a60…0a80 ec 0b 0e 06 23 2a 29 87 22 20 5b 75 73 65 72 20 70 61 73 73 77 6f 72 64 20 74 20 68 6f 73 74 20 ┆ #*) " [user password t host ┆ 0x0a80…0aa0 62 75 66 66 65 72 20 66 69 6c 65 70 20 66 69 6c 65 20 70 72 6f 63 65 73 73 20 63 61 73 65 2d 66 ┆buffer filep file process case-f┆ 0x0aa0…0ac0 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 20 77 69 6e 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f ┆old-search nil win buffer-read-o┆ 0x0ac0…0ae0 6e 6c 79 20 72 65 61 64 2d 66 74 70 2d 75 73 65 72 2d 70 61 73 73 77 6f 72 64 20 67 65 74 2d 62 ┆nly read-ftp-user-password get-b┆ 0x0ae0…0b00 75 66 66 65 72 2d 63 72 65 61 74 65 20 66 6f 72 6d 61 74 20 22 2a 66 74 70 25 73 20 25 73 3a 25 ┆uffer-create format "*ftp%s %s:%┆ 0x0b00…0b20 73 2a 22 20 22 22 20 22 2d 64 69 72 65 63 74 6f 72 79 22 20 66 74 70 2d 73 65 74 75 70 2d 62 75 ┆s*" "" "-directory" ftp-setup-bu┆ 0x0b20…0b40 66 66 65 72 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 08 86 07 00 c2 09 21 87 22 20 5b 77 69 6e ┆ffer ((byte-code " ! " [win┆ 0x0b40…0b60 20 70 72 6f 63 65 73 73 20 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 5d 20 32 29 29 20 66 74 70 ┆ process delete-process] 2)) ftp┆ 0x0b60…0b80 2d 6c 6f 67 69 6e 20 6d 65 73 73 61 67 65 20 22 4c 6f 67 67 65 64 20 69 6e 22 20 65 72 72 6f 72 ┆-login message "Logged in" error┆ 0x0b80…0ba0 20 22 46 74 70 20 6c 6f 67 69 6e 20 6c 6f 73 74 22 20 22 4f 70 65 6e 69 6e 67 20 25 73 20 25 73 ┆ "Ftp login lost" "Opening %s %s┆ 0x0ba0…0bc0 3a 25 73 2e 2e 2e 22 20 22 66 69 6c 65 22 20 22 64 69 72 65 63 74 6f 72 79 22 20 66 74 70 2d 63 ┆:%s..." "file" "directory" ftp-c┆ 0x0bc0…0be0 6f 6d 6d 61 6e 64 20 22 25 73 20 5c 22 25 73 5c 22 20 2d 0a 71 75 69 74 0a 22 20 22 67 65 74 22 ┆ommand "%s \"%s\" - quit " "get"┆ 0x0be0…0c00 20 22 64 69 72 22 20 22 5c 5c 28 31 35 30 5c 5c 7c 31 32 35 5c 5c 29 2e 2a 0a 22 20 22 32 30 30 ┆ "dir" "\\(150\\|125\\).* " "200┆ 0x0c00…0c20 2e 2a 0a 22 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 64 65 6c 65 74 65 2d 72 65 67 69 6f ┆.* " forward-line 1 delete-regio┆ 0x0c20…0c40 6e 20 22 52 65 74 72 69 65 76 69 6e 67 20 25 73 3a 25 73 20 69 6e 20 62 61 63 6b 67 72 6f 75 6e ┆n "Retrieving %s:%s in backgroun┆ 0x0c40…0c60 64 2e 20 20 42 79 65 21 22 20 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c 20 66 ┆d. Bye!" set-process-sentinel f┆ 0x0c60…0c80 74 70 2d 61 73 79 6e 63 68 72 6f 6e 6f 75 73 2d 69 6e 70 75 74 2d 73 65 6e 74 69 6e 65 6c 20 73 ┆tp-asynchronous-input-sentinel s┆ 0x0c80…0ca0 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 ┆witch-to-buffer insert-before-ma┆ 0x0ca0…0cc0 72 6b 65 72 73 20 22 3c 3c 3c 46 74 70 20 6c 6f 73 74 3e 3e 3e 22 20 64 65 6c 65 74 65 2d 70 72 ┆rkers "<<<Ftp lost>>>" delete-pr┆ 0x0cc0…0ce0 6f 63 65 73 73 20 22 46 74 70 20 25 73 3a 25 73 20 6c 6f 73 74 22 5d 20 32 31 29 29 0a 0a 28 64 ┆ocess "Ftp %s:%s lost"] 21)) (d┆ 0x0ce0…0d00 65 66 75 6e 20 66 74 70 2d 77 72 69 74 65 2d 66 69 6c 65 20 28 68 6f 73 74 20 66 69 6c 65 20 26 ┆efun ftp-write-file (host file &┆ 0x0d00…0d20 6f 70 74 69 6f 6e 61 6c 20 75 73 65 72 20 70 61 73 73 77 6f 72 64 29 20 22 5c 0a 46 54 50 20 74 ┆optional user password) "\ FTP t┆ 0x0d20…0d40 6f 20 48 4f 53 54 20 74 6f 20 77 72 69 74 65 20 46 49 4c 45 2c 20 6c 6f 67 67 69 6e 67 20 69 6e ┆o HOST to write FILE, logging in┆ 0x0d40…0d60 20 61 73 20 55 53 45 52 20 77 69 74 68 20 70 61 73 73 77 6f 72 64 20 50 41 53 53 57 4f 52 44 2e ┆ as USER with password PASSWORD.┆ 0x0d60…0d80 0a 49 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 48 4f 53 54 20 61 6e 64 20 46 49 4c 45 20 61 72 ┆ Interactively, HOST and FILE ar┆ 0x0d80…0da0 65 20 73 70 65 63 69 66 69 65 64 20 62 79 20 72 65 61 64 69 6e 67 20 61 20 73 74 72 69 6e 67 20 ┆e specified by reading a string ┆ 0x0da0…0dc0 77 69 74 68 20 63 6f 6c 6f 6e 0a 73 65 70 61 72 61 74 69 6e 67 20 74 68 65 20 68 6f 73 74 20 66 ┆with colon separating the host f┆ 0x0dc0…0de0 72 6f 6d 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 2e 0a 55 53 45 52 20 61 6e 64 20 50 41 53 53 57 ┆rom the filename. USER and PASSW┆ 0x0de0…0e00 4f 52 44 20 61 72 65 20 64 65 66 61 75 6c 74 65 64 20 66 72 6f 6d 20 74 68 65 20 76 61 6c 75 65 ┆ORD are defaulted from the value┆ 0x0e00…0e20 73 20 75 73 65 64 20 77 68 65 6e 0a 20 6c 61 73 74 20 66 74 70 69 6e 67 20 66 72 6f 6d 20 48 4f ┆s used when last ftping from HO┆ 0x0e20…0e40 53 54 20 28 75 6e 6c 65 73 73 20 70 61 73 73 77 6f 72 64 2d 72 65 6d 65 6d 62 65 72 69 6e 67 20 ┆ST (unless password-remembering ┆ 0x0e40…0e60 69 73 20 64 69 73 61 62 6c 65 64 29 2e 0a 20 53 75 70 70 6c 79 20 61 20 70 61 73 73 77 6f 72 64 ┆is disabled). Supply a password┆ 0x0e60…0e80 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 60 74 27 20 74 6f 20 6f 76 65 72 72 69 64 65 20 74 ┆ of the symbol `t' to override t┆ 0x0e80…0ea0 68 69 73 20 64 65 66 61 75 6c 74 0a 20 28 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 74 68 69 ┆his default (interactively, thi┆ 0x0ea0…0ec0 73 20 69 73 20 64 6f 6e 65 20 62 79 20 67 69 76 69 6e 67 20 61 20 70 72 65 66 69 78 20 61 72 67 ┆s is done by giving a prefix arg┆ 0x0ec0…0ee0 29 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 c4 21 ┆)" (interactive (byte-code " !┆ 0x0ee0…0f00 c0 09 3f 3f 44 5c 22 87 22 20 5b 6e 69 6c 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 ┆ ??D\" " [nil current-prefix-ar┆ 0x0f00…0f20 67 20 61 70 70 65 6e 64 20 66 74 70 2d 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 46 54 50 ┆g append ftp-read-file-name "FTP┆ 0x0f20…0f40 20 77 72 69 74 65 20 68 6f 73 74 3a 66 69 6c 65 3a 20 22 5d 20 35 29 29 20 28 62 79 74 65 2d 63 ┆ write host:file: "] 5)) (byte-c┆ 0x0f40…0f60 6f 64 65 20 22 c0 88 0a 85 0e 00 0b 85 0e 00 0b c4 3d 3f 86 20 00 ce 0d 0a 0b c4 3d 23 12 0a 41 ┆ode " =? =# A┆ 0x0f60…0f80 13 0a 40 89 12 88 cf d0 d1 0d 0e 07 23 21 d2 d3 21 1e 08 1e 06 d4 65 64 0e 08 23 88 0e 06 71 88 ┆ @ #! ! ed # q ┆ 0x0f80…0fa0 d5 c9 21 88 0e 08 89 16 09 88 d6 0d 0e 07 5c 22 c0 1e 0b 1e 0a c0 1e 0c d7 8e d8 0e 0a 0d 0a 0b ┆ ! \" ┆ 0x0fa0…0fc0 24 89 16 0c 83 67 00 d9 da 21 82 6a 00 db dc 21 29 29 88 d9 dd 0d 0e 07 23 88 de 0e 0a d0 df 0e ┆$ g ! j !)) # ┆ 0x0fc0…0fe0 08 0e 07 23 e0 e1 24 83 a3 00 e2 e3 21 88 c0 1e 0d e4 65 60 5c 22 29 88 d9 e5 0d 0e 07 23 88 e6 ┆ # $ ! e`\") # ┆ 0x0fe0…1000 0e 0a e7 5c 22 88 0e 0a 82 bb 00 e8 0e 06 21 88 c0 1e 0d e9 ea 21 29 88 eb 0e 0a 21 88 db ec 0d ┆ \" ! !) ! ┆ 0x1000…1020 0e 07 23 2a 2a 87 22 20 5b 6e 69 6c 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 ┆ #** " [nil current-prefix-arg ┆ 0x1020…1040 75 73 65 72 20 70 61 73 73 77 6f 72 64 20 74 20 68 6f 73 74 20 62 75 66 66 65 72 20 66 69 6c 65 ┆user password t host buffer file┆ 0x1040…1060 20 74 6d 70 20 66 74 70 2d 74 65 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 70 72 6f 63 65 73 73 20 ┆ tmp ftp-temp-file-name process ┆ 0x1060…1080 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 77 69 6e 20 62 75 66 66 65 72 2d 72 65 61 64 ┆case-fold-search win buffer-read┆ 0x1080…10a0 2d 6f 6e 6c 79 20 72 65 61 64 2d 66 74 70 2d 75 73 65 72 2d 70 61 73 73 77 6f 72 64 20 67 65 74 ┆-only read-ftp-user-password get┆ 0x10a0…10c0 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 66 6f 72 6d 61 74 20 22 2a 66 74 70 20 25 73 3a 25 ┆-buffer-create format "*ftp %s:%┆ 0x10c0…10e0 73 2a 22 20 6d 61 6b 65 2d 74 65 6d 70 2d 6e 61 6d 65 20 22 2f 74 6d 70 2f 65 6d 61 63 73 66 74 ┆s*" make-temp-name "/tmp/emacsft┆ 0x10e0…1100 70 22 20 77 72 69 74 65 2d 72 65 67 69 6f 6e 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 ┆p" write-region make-local-varia┆ 0x1100…1120 62 6c 65 20 66 74 70 2d 73 65 74 75 70 2d 62 75 66 66 65 72 20 28 28 62 79 74 65 2d 63 6f 64 65 ┆ble ftp-setup-buffer ((byte-code┆ 0x1120…1140 20 22 08 86 07 00 c2 09 21 87 22 20 5b 77 69 6e 20 70 72 6f 63 65 73 73 20 64 65 6c 65 74 65 2d ┆ " ! " [win process delete-┆ 0x1140…1160 70 72 6f 63 65 73 73 5d 20 32 29 29 20 66 74 70 2d 6c 6f 67 69 6e 20 6d 65 73 73 61 67 65 20 22 ┆process] 2)) ftp-login message "┆ 0x1160…1180 4c 6f 67 67 65 64 20 69 6e 22 20 65 72 72 6f 72 20 22 46 74 70 20 6c 6f 67 69 6e 20 6c 6f 73 74 ┆Logged in" error "Ftp login lost┆ 0x1180…11a0 22 20 22 4f 70 65 6e 69 6e 67 20 66 69 6c 65 20 25 73 3a 25 73 2e 2e 2e 22 20 66 74 70 2d 63 6f ┆" "Opening file %s:%s..." ftp-co┆ 0x11a0…11c0 6d 6d 61 6e 64 20 22 73 65 6e 64 20 5c 22 25 73 5c 22 20 5c 22 25 73 5c 22 0a 71 75 69 74 0a 22 ┆mmand "send \"%s\" \"%s\" quit "┆ 0x11c0…11e0 20 22 31 35 30 2e 2a 0a 22 20 22 32 30 30 2e 2a 0a 22 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 ┆ "150.* " "200.* " forward-line ┆ 0x11e0…1200 31 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 22 53 61 76 69 6e 67 20 25 73 3a 25 73 20 69 6e ┆1 delete-region "Saving %s:%s in┆ 0x1200…1220 20 62 61 63 6b 67 72 6f 75 6e 64 2e 20 20 42 79 65 21 22 20 73 65 74 2d 70 72 6f 63 65 73 73 2d ┆ background. Bye!" set-process-┆ 0x1220…1240 73 65 6e 74 69 6e 65 6c 20 66 74 70 2d 61 73 79 6e 63 68 72 6f 6e 6f 75 73 2d 6f 75 74 70 75 74 ┆sentinel ftp-asynchronous-output┆ 0x1240…1260 2d 73 65 6e 74 69 6e 65 6c 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 69 6e 73 65 72 ┆-sentinel switch-to-buffer inser┆ 0x1260…1280 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 22 3c 3c 3c 46 74 70 20 6c 6f 73 74 3e 3e 3e ┆t-before-markers "<<<Ftp lost>>>┆ 0x1280…12a0 22 20 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 20 22 46 74 70 20 77 72 69 74 65 20 25 73 3a 25 ┆" delete-process "Ftp write %s:%┆ 0x12a0…12c0 73 20 6c 6f 73 74 22 5d 20 32 34 29 29 0a 0a 28 64 65 66 75 6e 20 66 74 70 2d 73 65 74 75 70 2d ┆s lost"] 24)) (defun ftp-setup-┆ 0x12c0…12e0 62 75 66 66 65 72 20 28 68 6f 73 74 20 66 69 6c 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c7 ┆buffer (host file) (byte-code " ┆ 0x12e0…1300 20 88 c8 70 21 85 31 00 c9 20 88 ca cb cc cd c8 70 21 21 ce 70 21 23 21 83 2e 00 c8 70 21 85 2b ┆ p! 1 p!! p!#! . p! +┆ 0x1300…1320 00 cf c8 70 21 21 88 82 1c 00 82 31 00 d0 d1 21 88 c1 89 10 88 d2 20 88 d3 c2 21 88 0b 89 12 88 ┆ p!! 1 ! ! ┆ 0x1320…1340 d3 c4 21 88 0d 89 14 88 c6 89 10 88 d4 d5 70 d5 d6 d7 d8 26 06 87 22 20 5b 62 75 66 66 65 72 2d ┆ ! p & " [buffer-┆ 0x1340…1360 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20 66 74 70 2d 68 6f 73 74 20 68 6f 73 74 20 66 74 70 2d ┆read-only nil ftp-host host ftp-┆ 0x1360…1380 66 69 6c 65 20 66 69 6c 65 20 74 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 20 67 65 74 ┆file file t fundamental-mode get┆ 0x1380…13a0 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 64 69 73 63 61 72 64 2d 69 6e 70 75 74 20 79 2d ┆-buffer-process discard-input y-┆ 0x13a0…13c0 6f 72 2d 6e 2d 70 20 66 6f 72 6d 61 74 20 22 4b 69 6c 6c 20 70 72 6f 63 65 73 73 20 5c 22 25 73 ┆or-n-p format "Kill process \"%s┆ 0x13c0…13e0 5c 22 20 69 6e 20 25 73 3f 20 22 20 70 72 6f 63 65 73 73 2d 6e 61 6d 65 20 62 75 66 66 65 72 2d ┆\" in %s? " process-name buffer-┆ 0x13e0…1400 6e 61 6d 65 20 6b 69 6c 6c 2d 70 72 6f 63 65 73 73 20 65 72 72 6f 72 20 22 46 6f 6f 22 20 65 72 ┆name kill-process error "Foo" er┆ 0x1400…1420 61 73 65 2d 62 75 66 66 65 72 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 73 ┆ase-buffer make-local-variable s┆ 0x1420…1440 74 61 72 74 2d 70 72 6f 63 65 73 73 20 22 66 74 70 22 20 22 2d 69 22 20 22 2d 6e 22 20 22 2d 67 ┆tart-process "ftp" "-i" "-n" "-g┆ 0x1440…1460 22 5d 20 32 32 29 29 0a 0a 28 64 65 66 75 6e 20 66 74 70 2d 6c 6f 67 69 6e 20 28 70 72 6f 63 65 ┆"] 22)) (defun ftp-login (proce┆ 0x1460…1480 73 73 20 68 6f 73 74 20 75 73 65 72 20 70 61 73 73 77 6f 72 64 29 20 28 62 79 74 65 2d 63 6f 64 ┆ss host user password) (byte-cod┆ 0x1480…14a0 65 20 22 c7 c8 08 09 23 88 c9 0a ca cb 09 08 0b 24 cc cd 24 83 18 00 c4 82 32 00 ce cf 0a 21 21 ┆e " # $ $ 2 !!┆ 0x14a0…14c0 88 d0 0a 21 88 0d 3c 85 30 00 d1 d2 09 0d 5c 22 0d 5c 22 89 15 88 c6 87 22 20 5b 75 73 65 72 20 ┆ ! < 0 \" \" " [user ┆ 0x14c0…14e0 68 6f 73 74 20 70 72 6f 63 65 73 73 20 70 61 73 73 77 6f 72 64 20 74 20 66 74 70 2d 70 61 73 73 ┆host process password t ftp-pass┆ 0x14e0…1500 77 6f 72 64 2d 61 6c 69 73 74 20 6e 69 6c 20 6d 65 73 73 61 67 65 20 22 46 54 50 20 6c 6f 67 67 ┆word-alist nil message "FTP logg┆ 0x1500…1520 69 6e 67 20 69 6e 20 61 73 20 25 73 40 25 73 2e 2e 2e 22 20 66 74 70 2d 63 6f 6d 6d 61 6e 64 20 ┆ing in as %s@%s..." ftp-command ┆ 0x1520…1540 66 6f 72 6d 61 74 20 22 6f 70 65 6e 20 25 73 0a 75 73 65 72 20 25 73 20 25 73 0a 22 20 22 32 33 ┆format "open %s user %s %s " "23┆ 0x1540…1560 30 2e 2a 0a 22 20 22 5c 5c 28 43 6f 6e 6e 65 63 74 65 64 20 74 6f 20 5c 5c 7c 32 32 30 5c 5c 7c ┆0.* " "\\(Connected to \\|220\\|┆ 0x1560…1580 33 33 31 5c 5c 29 2e 2a 0a 22 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 70 72 6f 63 ┆331\\).* " switch-to-buffer proc┆ 0x1580…15a0 65 73 73 2d 62 75 66 66 65 72 20 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 20 64 65 6c 71 20 61 ┆ess-buffer delete-process delq a┆ 0x15a0…15c0 73 73 6f 63 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 66 74 70 2d 63 6f 6d 6d 61 6e 64 20 28 ┆ssoc] 10)) (defun ftp-command (┆ 0x15c0…15e0 70 72 6f 63 65 73 73 20 63 6f 6d 6d 61 6e 64 20 77 69 6e 20 69 67 6e 6f 72 65 29 20 28 62 79 74 ┆process command win ignore) (byt┆ 0x15e0…1600 65 2d 63 6f 64 65 20 22 c7 08 09 5c 22 88 c8 1a c9 0a 21 85 53 00 ca 0b 21 83 1c 00 64 62 88 c4 ┆e-code " \" ! S ! db ┆ 0x1600…1620 89 12 82 4f 00 ca cb 21 83 29 00 cc cd 21 62 82 4f 00 ca 0d 21 83 35 00 ce c8 21 82 4f 00 cf d0 ┆ O ! ) !b O ! 5 ! O ┆ 0x1620…1640 c6 c4 23 3f 83 4c 00 60 89 12 88 c6 d1 d2 8f 88 0a 62 82 4f 00 c6 89 12 88 82 07 00 88 0a 29 87 ┆ #? L ` b O ) ┆ 0x1640…1660 22 20 5b 70 72 6f 63 65 73 73 20 63 6f 6d 6d 61 6e 64 20 70 20 77 69 6e 20 74 20 69 67 6e 6f 72 ┆" [process command p win t ignor┆ 0x1660…1680 65 20 6e 69 6c 20 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 31 20 6e 75 6d 62 ┆e nil process-send-string 1 numb┆ 0x1680…16a0 65 72 70 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5e 66 74 70 3e 20 5c 5c 7c 5e 0a 22 20 6d 61 74 ┆erp looking-at "^ftp> \\|^ " mat┆ 0x16a0…16c0 63 68 2d 65 6e 64 20 30 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 73 65 61 72 63 68 2d 66 6f 72 ┆ch-end 0 forward-line search-for┆ 0x16c0…16e0 77 61 72 64 20 22 0a 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 70 72 6f 63 ┆ward " " (byte-code " ! " [proc┆ 0x16e0…1700 65 73 73 20 61 63 63 65 70 74 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 5d 20 32 29 20 28 28 ┆ess accept-process-output] 2) ((┆ 0x1700…1720 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 29 ┆error (byte-code " " [nil] 1)))┆ 0x1720…1740 5d 20 31 32 29 29 0a 0a 28 64 65 66 75 6e 20 66 74 70 2d 61 73 79 6e 63 68 72 6f 6e 6f 75 73 2d ┆] 12)) (defun ftp-asynchronous-┆ 0x1740…1760 69 6e 70 75 74 2d 73 65 6e 74 69 6e 65 6c 20 28 70 72 6f 63 65 73 73 20 6d 73 67 29 20 28 62 79 ┆input-sentinel (process msg) (by┆ 0x1760…1780 74 65 2d 63 6f 64 65 20 22 c3 08 09 c2 c2 24 87 22 20 5b 70 72 6f 63 65 73 73 20 6d 73 67 20 74 ┆te-code " $ " [process msg t┆ 0x1780…17a0 20 66 74 70 2d 73 65 6e 74 69 6e 65 6c 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 66 74 70 2d 73 ┆ ftp-sentinel] 5)) (defun ftp-s┆ 0x17a0…17c0 79 6e 63 68 72 6f 6e 6f 75 73 2d 69 6e 70 75 74 2d 73 65 6e 74 69 6e 65 6c 20 28 70 72 6f 63 65 ┆ynchronous-input-sentinel (proce┆ 0x17c0…17e0 73 73 20 6d 73 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 08 09 c2 c3 24 87 22 20 5b 70 72 ┆ss msg) (byte-code " $ " [pr┆ 0x17e0…1800 6f 63 65 73 73 20 6d 73 67 20 6e 69 6c 20 74 20 66 74 70 2d 73 65 6e 74 69 6e 65 6c 5d 20 35 29 ┆ocess msg nil t ftp-sentinel] 5)┆ 0x1800…1820 29 0a 0a 28 64 65 66 75 6e 20 66 74 70 2d 61 73 79 6e 63 68 72 6f 6e 6f 75 73 2d 6f 75 74 70 75 ┆) (defun ftp-asynchronous-outpu┆ 0x1820…1840 74 2d 73 65 6e 74 69 6e 65 6c 20 28 70 72 6f 63 65 73 73 20 6d 73 67 29 20 28 62 79 74 65 2d 63 ┆t-sentinel (process msg) (byte-c┆ 0x1840…1860 6f 64 65 20 22 c4 08 09 c2 c3 24 87 22 20 5b 70 72 6f 63 65 73 73 20 6d 73 67 20 74 20 6e 69 6c ┆ode " $ " [process msg t nil┆ 0x1860…1880 20 66 74 70 2d 73 65 6e 74 69 6e 65 6c 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 66 74 70 2d 73 ┆ ftp-sentinel] 5)) (defun ftp-s┆ 0x1880…18a0 79 6e 63 68 72 6f 6e 6f 75 73 2d 6f 75 74 70 75 74 2d 73 65 6e 74 69 6e 65 6c 20 28 70 72 6f 63 ┆ynchronous-output-sentinel (proc┆ 0x18a0…18c0 65 73 73 20 6d 73 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 09 c2 c2 24 87 22 20 5b 70 ┆ess msg) (byte-code " $ " [p┆ 0x18c0…18e0 72 6f 63 65 73 73 20 6d 73 67 20 6e 69 6c 20 66 74 70 2d 73 65 6e 74 69 6e 65 6c 5d 20 35 29 29 ┆rocess msg nil ftp-sentinel] 5))┆ 0x18e0…1900 0a 0a 28 64 65 66 75 6e 20 66 74 70 2d 73 65 6e 74 69 6e 65 6c 20 28 70 72 6f 63 65 73 73 20 6d ┆ (defun ftp-sentinel (process m┆ 0x1900…1920 73 67 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 20 69 6e 70 75 74 29 20 28 62 79 74 65 2d 63 6f 64 ┆sg asynchronous input) (byte-cod┆ […truncated at 200 lines…]