File: cmpinit.lsp

package info (click to toggle)
gcl 2.6.14-19
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 60,804 kB
  • sloc: ansic: 177,407; lisp: 151,508; asm: 128,169; sh: 22,510; cpp: 11,923; tcl: 3,181; perl: 2,930; makefile: 2,360; sed: 334; yacc: 226; lex: 95; awk: 30; fortran: 24; csh: 23
file content (16 lines) | stat: -rwxr-xr-x 624 bytes parent folder | download | duplicates (18) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 

(proclaim '(optimize (safety 2)(speed 0)))
(in-package "BCOMP")
(Use-package '("LISP" "SLOOP"))
(or (get 'call-data 'si::s-data) (load "defs.lsp"))
(or (macro-function 'dolist-safe)(load "macros.lsp"))
(or (si::specialp '*top-form*) (load "top.lsp"))
(or (si::specialp '*next-data*) (load "top2.lsp"))
(or (si::specialp '*C-OUTPUT*) (load "top.lsp"))
(or (si::specialp '*function-decls*)(load "top1.lsp"))
(or (si::specialp '*immediate-types*) (load "comptype.lsp"))
(or (fboundp 'flags-pos) (load "inline.lsp"))
(or (si::specialp '*value*)(Load "stmt.lsp"))
(or (si::specialp ' *PROMOTED-ARG-TYPES*) (load "utils.lsp"))