fixed condition in file copying

darcs-hash:20060925010527-3cc5d-9181a290073e09b95230742600cc8c688807ba1d.gz
hraban · Sep 25, 2006 · 5f4c41f · 5f4c41f
1 parent 8e11788
commit 5f4c41f
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/dev/utilities/copy-file.lisp b/dev/utilities/copy-file.lisp
@@ -21,7 +21,8 @@
 
 ;;; ---------------------------------------------------------------------------
 
-(define-condition source/target-source-does-not-exist-error (source/target-file-error)
+(define-condition source/target-source-does-not-exist-error
+    (source/target-file-error)
                   ()
   (:report (lambda (c s)
              (format s "File action failed because source ~S does not exist"
@@ -70,13 +71,13 @@ designator does not exist.
                (unless out
                  (error (make-condition 'source/target-target-already-exists
                                         :pathname from
-                                        :to to)))
+                                        :target-pathname to)))
                (copy-stream in out))))
          (values t))
         (t
          ;; no source file!
          (ecase if-does-not-exist
            ((:error) (error 'source/target-source-does-not-exist-error
-                            :pathname from :to to))
+                            :pathname from :target-pathname to))
            ((:ignore) nil)))))