/[cmucl]/src/code/unix-glibc2.lisp
ViewVC logotype

Diff of /src/code/unix-glibc2.lisp

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

revision 1.22 by pmai, Mon Mar 3 16:03:40 2003 UTC revision 1.23 by emarsden, Wed Mar 5 15:54:52 2003 UTC
# Line 1790  length LEN and type TYPE." Line 1790  length LEN and type TYPE."
1790                   (extern-alien "lseek64" (function off-t int off-t int))                   (extern-alien "lseek64" (function off-t int off-t int))
1791                   fd offset whence)))                   fd offset whence)))
1792      (if (minusp result)      (if (minusp result)
1793          (values nil (unix-get-errno))          (progn
1794              (unix-get-errno)
1795              (values nil unix-errno))
1796          (values result 0))))          (values result 0))))
1797    
1798    

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

  ViewVC Help
Powered by ViewVC 1.1.5