- code_start = (unsigned long)codeptr
- + HeaderValue(codeptr->header)*sizeof(lispobj);
- if (pc < code_start)
- return 0;
- else {
- long offset = pc - code_start;
- if (offset >= codeptr->code_size)
- return 0;
- else
- return make_fixnum(offset);
- }
+ code_start = (unsigned long)codeptr
+ + HeaderValue(codeptr->header)*sizeof(lispobj);
+ if (pc < code_start)
+ return 0;
+ else {
+ unsigned long offset = pc - code_start;
+ if (offset >= codeptr->code_size)
+ return 0;
+ else
+ return make_fixnum(offset);
+ }