diff --git a/ChangeLog b/ChangeLog index 3086e1c..47dd641 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,15 @@ *** Don't forget to consider incrementing the version number in ftpd.cl *** [and leave this message at the top of the file] +2004-07-13 root +1.0.24 + * ftpd.cl: cmd-rnto: Added missing 'fullpath' to format string + when complaining about out of bounds rename. + + * debug.cl: Deleted. Cruft removal. + + * *.tgz: Updating source and binary tarballs. + 2004-01-14 root diff --git a/aftpd-1.0.14-src.tgz b/aftpd-1.0.14-src.tgz deleted file mode 100644 index a8cb77f..0000000 Binary files a/aftpd-1.0.14-src.tgz and /dev/null differ diff --git a/aftpd-1.0.19-src.tgz b/aftpd-1.0.19-src.tgz deleted file mode 100644 index 6e8386f..0000000 Binary files a/aftpd-1.0.19-src.tgz and /dev/null differ diff --git a/aftpd-linux-1.0.14.tgz b/aftpd-linux-1.0.14.tgz deleted file mode 100644 index f6fa6ed..0000000 Binary files a/aftpd-linux-1.0.14.tgz and /dev/null differ diff --git a/aftpd-linux-1.0.19.tgz b/aftpd-linux-1.0.19.tgz deleted file mode 100644 index 6bb30ce..0000000 Binary files a/aftpd-linux-1.0.19.tgz and /dev/null differ diff --git a/aftpd-solaris-1.0.14.tgz b/aftpd-solaris-1.0.14.tgz deleted file mode 100644 index cf2b315..0000000 Binary files a/aftpd-solaris-1.0.14.tgz and /dev/null differ diff --git a/aftpd-solaris-1.0.19.tgz b/aftpd-solaris-1.0.19.tgz deleted file mode 100644 index 1531bb2..0000000 Binary files a/aftpd-solaris-1.0.19.tgz and /dev/null differ diff --git a/debug.cl b/debug.cl deleted file mode 100644 index 7180744..0000000 --- a/debug.cl +++ /dev/null @@ -1,7 +0,0 @@ -(load "config.cl") -(setq *debug* t) -(setq *ftpport* 8021) -(load "ftpd.fasl") -(trace excl::filesys-type) -(open-logs) -(standalone-main) diff --git a/ftpd.cl b/ftpd.cl index 7a4b1dd..496b747 100644 --- a/ftpd.cl +++ b/ftpd.cl @@ -5,11 +5,11 @@ ;; (http://opensource.franz.com/preamble.html), ;; known as the LLGPL. ;; -;; $Id: ftpd.cl,v 1.35 2004/01/14 20:04:13 dancy Exp $ +;; $Id: ftpd.cl,v 1.36 2004/07/13 16:20:51 dancy Exp $ (in-package :user) -(defvar *ftpd-version* "1.0.23") +(defvar *ftpd-version* "1.0.24") (eval-when (compile) (proclaim '(optimize (safety 1) (space 1) (speed 3) (debug 2)))) @@ -1539,7 +1539,7 @@ (return (outline "553 Rename permission denied."))) (if (and (restricted client) (out-of-bounds-p client fullpath)) - (return (outline "550 ~A: Permission denied."))) + (return (outline "550 ~A: Permission denied." fullpath))) (handler-case (when (rename (rename-from client) to)