Displaying 8 results from an estimated 8 matches for "progn".
Did you mean:
prog
2007 Jan 30
1
Emacs spec parsing?
Hi,
Did anyone with better emacs lisp knowledge than me already come up
with a function like spec-at-point which finds the specify and context
declaration for the current cursor position and returns a string which
can be used to be passed to the --spec option of the spec runner?
Damn that would be useful ...
I am currently using a function that runs spec --line with the current
line number, the
2008 Jul 23
1
Calling LISP programs in R
...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 "x (* u z)";
PUT "y (* v z)";
PUT "mix (append (list x) mix)";
PUT "mix (append (list y) mix)))))";
PUT "(setq mix (remove nil mix)";
PUT &quo...
2013 Oct 14
3
[LLVMdev] A weird, reproducable problem with MCJIT
...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 definition is
here: https://dl.dropboxusercontent.com/u/6229900/broken.ll
Any suggestions or pointers on...
2013 Oct 14
0
[LLVMdev] A weird, reproducable problem with MCJIT
...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 definition is
here: https://dl.dropboxusercontent.com/u/6229900/broken.ll
Any suggestions or pointers on...
2013 Oct 14
3
[LLVMdev] A weird, reproducable problem with MCJIT
...(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...
2010 Nov 17
5
n00b, how to uninstall wine completely and reinstall, Ubuntu.
I installed wine on my desktop running ubuntu 10.04. All was working fine until I installed battlefield 1942. I had an issue so decided to uninstall wine and try again.
When I reinstalled wine, I get no Programs item in the menu. I can browse to the folder when browsing the c drive.
I started to uninstall BF1942 to try again and had a power cut during the process.
Is there any way to completely
2015 Jan 05
2
[LLVMdev] [PATCH] Fix Emacs package formatting
..."uselistorder_bb") 'words) . font-lock-keyword-face)
)
- "Syntax highlighting for LLVM"
+ "Syntax highlighting for LLVM."
)
;; ---------------------- Syntax table ---------------------------
@@ -62,40 +67,40 @@
(if (not llvm-mode-syntax-table)
(progn
(setq llvm-mode-syntax-table (make-syntax-table))
- (mapcar (function (lambda (n)
- (modify-syntax-entry (aref n 0)
- (aref n 1)
- llvm-mode-syntax-table)))
-...
2005 Apr 21
4
[LLVMdev] Trailing whitespace removal (important for CVS users!)
On Thu, 21 Apr 2005, Reid Spencer wrote:
> Why not put all this into a pre-commit filter in CVS and be done with
> it? We'd never be bothered with it again as it would never be committed
> again.
I'd rather not have CVS commit scripts mucking with the code. If you want
to have the nightly tester whine about source code with spaces at the end
of lines (like it whines about