Changeset 9139 for trunk/source/examples/opengl-ffi.lisp
- Timestamp:
- Apr 12, 2008, 9:32:29 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/examples/opengl-ffi.lisp
r5726 r9139 135 135 ;;; Set the OSX Window Server's notion of the name of the 136 136 ;;; current process. 137 ( %stack-block ((psn 8))138 ( ccl::external-call "_GetCurrentProcess" :address psn)137 (rlet ((psn #>ProcessSerialNumber)) 138 (#_GetCurrentProcess psn) 139 139 (with-cstrs ((name "simple OpenGL example")) 140 (ccl::external-call "_CPSSetProcessName" :address psn :address name ))))140 (ccl::external-call "_CPSSetProcessName" :address psn :address name :void)))) 141 141 (main))) 142 142
Note: See TracChangeset
for help on using the changeset viewer.