X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=impl.lisp;h=7862ca5cec71b0e205babbf368202d304a4f7316;hp=a814cc4d1b0a08d42eb75d94abde0aef1f0b4f7a;hb=4b512145081c369cb1dbfe579a4dfd5a32476b92;hpb=f03310d76a2458e5efb45b89f8e6b087db7f4ed1

diff --git a/impl.lisp b/impl.lisp
index a814cc4..7862ca5 100644
--- a/impl.lisp
+++ b/impl.lisp
@@ -35,9 +35,9 @@
 			      new-dir)
 		    :name nil :type nil :version nil :defaults path)
 	  path))))
-  
 
-(defun probe-directory (filename &key (error-if-not-exists nil))
+
+(defun probe-directory (filename &key (error-if-does-not-exist nil))
   (let* ((path (canonicalize-directory-name filename))
 	 (probe
 	  #+allegro (excl:probe-directory path)
@@ -58,7 +58,7 @@
 	  (probe-file path)))
     (if probe
 	probe
-	(when error-if-not-exists
+	(when error-if-does-not-exist
 	  (error "Directory ~A does not exist." filename)))))
 
 (defun cwd (&optional dir)
@@ -118,11 +118,12 @@
 (defun copy-file (from to &key link overwrite preserve-symbolic-links
 		  (preserve-time t) remove-destination force verbose)
   #+allegro (sys:copy-file from to :link link :overwrite overwrite
-			   :preserve-symbolic-links preserve-symbolic-links 
+			   :preserve-symbolic-links preserve-symbolic-links
 			   :preserve-time preserve-time
 			   :remove-destination remove-destination
 			   :force force :verbose verbose)
   #-allegro
+  (declare (ignore verbose preserve-symbolic-links overwrite))
   (cond
     ((and (typep from 'stream) (typep to 'stream))
      (copy-binary-stream from to))
@@ -140,7 +141,7 @@
     (t
      (when (and (or force remove-destination) (probe-file to))
        (delete-file to))
-     (let* ((options (if preserve-time 
+     (let* ((options (if preserve-time
 			 "-p"
 			 ""))
 	    (cmd (format nil "cp ~A ~A ~A" options (namestring from) (namestring to))))