Displaying 4 results from an estimated 4 matches for "dotimes".
2013 Oct 14
3
[LLVMdev] A weird, reproducable problem with MCJIT
...llvmoExpose.cc:811
Here is the function that causes the crash (it's Common Lisp and all
macros have been expanded).
(defun match-dimensions (array pat)
(let ((zzz (eq pat '*)))
(if zzz
zzz
(let ((rank (array-rank array) ))
(if (listp pat)
(BLOCK NIL
(LET* (
(%DOTIMES-VAR 100)
(I 0)
)
(TAGBODY
(GO bot)
top
(if (not t) (progn))
(SETQ PAT (CDR PAT))
(SETQ I (1+ I))
bot
(if (< I %DOTIMES-VAR) (GO top))
)
(NULL PAT))))))))
The LLVM-IR file generated by compiling this function defini...
2013 Oct 14
0
[LLVMdev] A weird, reproducable problem with MCJIT
...llvmoExpose.cc:811
Here is the function that causes the crash (it's Common Lisp and all macros have been expanded).
(defun match-dimensions (array pat)
(let ((zzz (eq pat '*)))
(if zzz
zzz
(let ((rank (array-rank array) ))
(if (listp pat)
(BLOCK NIL
(LET* (
(%DOTIMES-VAR 100)
(I 0)
)
(TAGBODY
(GO bot)
top
(if (not t) (progn))
(SETQ PAT (CDR PAT))
(SETQ I (1+ I))
bot
(if (< I %DOTIMES-VAR) (GO top))
)
(NULL PAT))))))))
The LLVM-IR file generated by compiling this function defini...
2013 Oct 14
3
[LLVMdev] A weird, reproducable problem with MCJIT
...been expanded).
>
> (defun match-dimensions (array pat)
> (let ((zzz (eq pat '*)))
> (if zzz
> zzz
> (let ((rank (array-rank array) ))
> (if (listp pat)
> (BLOCK NIL
> (LET* (
> (%DOTIMES-VAR 100)
> (I 0)
> )
> (TAGBODY
> (GO bot)
> top
> (if (not t) (progn))
> (SETQ PAT (CDR PAT))
> (SETQ I (1+...
2008 Jul 23
1
Calling LISP programs in R
...SAS to LISP; of course it's a toy example because there is no need for a
LISP routine in this particular case. I hope R has a similar feature. Thanks
DATA _NULL_;
FILE 'c:\cl.lisp' LRECL=1024;
PUT "(defun run (num Mn SD)";
PUT "(setq mix (list nil))";
PUT "(dotimes (n num)";
PUT "(setq u (- (* 2 (random 1.0)) 1)";
PUT "v (- (* 2 (random 1.0)) 1)";
PUT "w (+ (expt u 2) (expt v 2)))";
PUT "(when (< w 1)";
PUT "(progn";
PUT "(setq z (sqrt (/ (* -2 (log w)) w))";
PUT...