Changeset 6485
- Timestamp:
- May 9, 2007, 7:45:41 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/level-0/l0-def.lisp
r3837 r6485 251 251 (%global-macro-function form)) 252 252 253 (defun %fixnum-ref-macptr (fixnum &optional (offset 0)) 254 (%int-to-ptr (%fixnum-ref-natural fixnum offset))) 255 256 (defun %fixnum-set-macptr (fixnum offset &optional (newval offset newval-p)) 257 (%fixnum-set-natural fixnum (if newval-p offset 0) (%ptr-to-int newval)) 258 newval) 259 253 260 ;;; end of l0-def.lisp
Note: See TracChangeset
for help on using the changeset viewer.