/[meta-cvs]/meta-cvs/F-258A1D35AE34AADD34D34F5A328405CC.lisp
ViewVC logotype

Diff of /meta-cvs/F-258A1D35AE34AADD34D34F5A328405CC.lisp

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

revision 1.17 by kaz, Tue Nov 28 02:30:40 2006 UTC revision 1.18 by kaz, Tue Nov 28 02:43:15 2006 UTC
# Line 199  Line 199 
199  (defun readlink (path)  (defun readlink (path)
200    (multiple-value-bind (result link)    (multiple-value-bind (result link)
201                         (readlink-ll path 4096)                         (readlink-ll path 4096)
202      (if (> result 0) (coerce link 'string) nil)))      (if (> result 0) link nil)))
203    
204  (def-libc-call-out unlink  (def-libc-call-out unlink
205    (:arguments (path c-string))    (:arguments (path c-string))
# Line 469  Line 469 
469  (progn  (progn
470    (def-libc-call-out getcwd-ll    (def-libc-call-out getcwd-ll
471      (:name "getcwd")      (:name "getcwd")
472        ;; this is char on purpose, since we take the returned value,
473        ;; and ignore the :out parameter.  It would be a waste of cycles
474        ;; to put it through a charset encoder.
475      (:arguments (buf (c-ptr (c-array-max char 4096)) :out :alloca)      (:arguments (buf (c-ptr (c-array-max char 4096)) :out :alloca)
476                  (size ulong))                  (size ulong))
477      (:return-type c-string))      (:return-type c-string))

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5