File: modpreptest.in

package info (click to toggle)
clisp 1:2.27-0.5
  • links: PTS
  • area: main
  • in suites: woody
  • size: 49,860 kB
  • ctags: 20,752
  • sloc: ansic: 123,781; lisp: 67,533; asm: 19,633; xml: 11,766; sh: 9,788; fortran: 8,307; makefile: 3,570; objc: 2,481; perl: 1,744; java: 341; yacc: 318; sed: 117
file content (29 lines) | stat: -rw-r--r-- 569 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
/* Sample module */
#line 4
DEFMODULE(sample,"USER")
#line 10
 DEFVAR (var1, NIL)
#ifdef cond0
 DEFUN (mypack:fun1, x)
#if defined(cond1)
   push( `:GOTO`);
 DEFUN (mypack:fun2, x)
   push(`#()`);
   push( `:GOTO`);
 DEFVAR (var2, `(foo2)`)
 DEFVAR (var3, O(var2))
#else
 DEFUN (mypack:fun2, y)
   push(`:OTOG`);
 DEFVAR (var3, `(foo3)`)
 DEFVAR (var2, O(var3))
#endif
#endif
DEFUN (mypack:fun3, x y &optional z)
DEFUN (mypack:fun4, x y &key test test-not)
DEFUN (fun5, x y &rest r)
#if cond2a ? cond2b : cond2c
   push(`:GOTO`);
#elif cond3
   push(`#\space`);
#endif