Author: mhenoch Date: Fri Feb 9 13:30:27 2007 New Revision: 87 Modified: cl-darcs/trunk/util.lisp Log: Implement compress-file for SBCL Modified: cl-darcs/trunk/util.lisp ============================================================================== --- cl-darcs/trunk/util.lisp (original) +++ cl-darcs/trunk/util.lisp Fri Feb 9 13:30:27 2007 @@ -150,6 +150,11 @@ (ext:run-program "gzip" :input (namestring infile) :output (namestring outfile) :if-output-exists :error) (dformat "done")) + #+sbcl + ((pathnamep infile) + (dformat "~&Compressing ~A through external program..." outfile) + (sb-ext:run-program "/usr/bin/gzip" nil :input infile :output outfile + :if-output-exists :error)) (t (cerror "Assume compression performed." "Don't know how to gzip ~A to ~A." infile outfile))))