blob: 74cf9d8ec46ece8a08fc80f724143b05285d17b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
;; file tmultilong.melt
;; -*- lisp -*-
;; this tests that a :long argument is ok in multicall
#|
./cc1 -Wno-shadow -fmelt=runfile \
-fmelt-dynlibdir=. -fmelt-compile-script=./built-melt-cc-script \
-fmelt-gensrcdir=. -fmelt-tempdir=/tmp \
-fmelt-init="@warmelt2" -fmelt-arg=tmultilong.melt
|#
(defun tmultilong (f x)
(multicall
(r :long n)
(f x)
(if n r)
))
|
