File: modpreptest.in

package info (click to toggle)
clisp 1:2.41-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 49,804 kB
  • ctags: 16,291
  • sloc: lisp: 75,912; ansic: 49,247; xml: 24,289; asm: 21,993; sh: 11,234; fortran: 6,692; cpp: 2,660; objc: 2,481; makefile: 2,355; perl: 164; sed: 55
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