Changeset 6916
- Timestamp:
- Jul 21, 2007, 10:12:42 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/level-0/l0-utils.lisp
r5389 r6916 135 135 (when (funcall test-fn item (car l)) (return l)))))) 136 136 137 (defun s32->u32 (s32) 138 (%stack-block ((buf 4)) 139 (setf (%get-signed-long buf) s32) 140 (%get-unsigned-long buf))) 137 141 142 (defun u32->s32 (u32) 143 (%stack-block ((buf 4)) 144 (setf (%get-unsigned-long buf) u32) 145 (%get-signed-long buf))) 138 146 139 147
Note: See TracChangeset
for help on using the changeset viewer.