[Cl-darcs-cvs] r87 - cl-darcs/trunk

[mhenoch at common-lisp.net]

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))))