/[meta-cvs]/meta-cvs/F-6BD7679FED76D6E5A7D36DC36C205FC1.lisp
ViewVC logotype

Diff of /meta-cvs/F-6BD7679FED76D6E5A7D36DC36C205FC1.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4.2.2 by kaz, Sun Aug 25 16:07:05 2002 UTC revision 1.4.2.3 by kaz, Sun Aug 25 19:31:51 2002 UTC
# Line 226  Line 226 
226  (defmethod initialize-instance :after ((c link-error) &rest args)  (defmethod initialize-instance :after ((c link-error) &rest args)
227    (declare (ignore args))    (declare (ignore args))
228    (with-slots (message kind from-path to-path) c    (with-slots (message kind from-path to-path) c
229      (setf message (format nil "Unable to make ~A link from ~A to ~A: ~A."      (setf message (format nil "Unable to make ~A link called ~A referencing ~A."
230                            kind from-path to-path                            kind to-path from-path
231                            (unix-funcs:strerror unix-funcs:errno)))))                            (unix-funcs:strerror unix-funcs:errno)))))
232    
233  (defun link (from to)  (defun link (from to)

Legend:
Removed from v.1.4.2.2  
changed lines
  Added in v.1.4.2.3

  ViewVC Help
Powered by ViewVC 1.1.5