Changeset 9212
- Timestamp:
- Apr 20, 2008, 11:04:52 AM (13 years ago)
- Location:
- trunk/source
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/linux-files.lisp
r9007 r9212 540 540 541 541 (defun %read-dir (dir) 542 (let* ((res (#_readdir dir))) 543 (unless (%null-ptr-p res) 544 (get-foreign-namestring (pref res :dirent.d_name))))) 542 (rlet ((entry #>dirent) 543 (presult :address +null-ptr+)) 544 (let* ((err (#_readdir_r dir entry presult)) 545 (result (%get-ptr presult))) 546 (declare (fixnum err) (dynamic-extent result)) 547 (when (zerop err) 548 (unless (%null-ptr-p result) 549 (get-foreign-namestring (pref result #>dirent.d_name))))))) 545 550 546 551 (defun tcgetpgrp (fd) -
trunk/source/lib/foreign-types.lisp
r8541 r9212 1713 1713 (canonicalize-foreign-type-ordinal '(:* (:struct :hostent))) 1714 1714 (canonicalize-foreign-type-ordinal '(:array :int 2)) 1715 (canonicalize-foreign-type-ordinal '(:array (:struct :pollfd) 1))))) 1715 (canonicalize-foreign-type-ordinal '(:array (:struct :pollfd) 1)) 1716 (canonicalize-foreign-type-ordinal '(:struct :dirent))))) 1716 1717 1717 1718 (defun install-standard-foreign-types (ftd)
Note: See TracChangeset
for help on using the changeset viewer.