* Madhu <[EMAIL PROTECTED]> :
Wrote on Thu, 25 Sep 2008 18:13:43 +0530:
| * Steven Edwards <[EMAIL PROTECTED]> :
| Wrote on Wed, 24 Sep 2008 14:08:09 -0400:
|
| | ; (SIXTH MY-TM-LIST)
| | ; --> NTH CAR NTHCDR BLOCK FLET TYPECASE LET COND IF COND IF PROGN DO
| | BLOCK LET
| | ; --> TAGBODY RETURN-FROM PROGN LISP::FAST-NTHCDR
| | ; ==>
| | ; (MOD LISP::N LISP::I)
| | ; Note: Deleting unused function
| | ; MOD
| | Weird, eh?
|
| Indeed. I cannot replicate this. Wild Guess: Perhaps you have
| redefined SIXTH in your environment and that uses MOD, REM ?
Sorry. Actually I was able to reproduce this under
(optimize (speed 3) (space 0))
settings. The MOD and REM come from NTHCDR in list.lisp.
Here is a reduced test case:
* (defun f (x) (declare (optimize (speed 3)(space 0)))
(append (nthcdr 1 x) (nthcdr 1 x)))
* (compile 'f)
I can't explain it from looking at srctran.lisp's deftransform for
nthcdr.
--
Madhu
