File: try.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 (26 lines) | stat: -rwxr-xr-x 744 bytes parent folder | download | duplicates (18) 
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
 
(in-package "BCOMP" :use '("SLOOP" "LISP"))
(setq *print-pretty* t)
(defun compiler::boole3 (a b c) (boole a b c))
(setq compiler::*cc* (concatenate 'string compiler::*cc* " -I../newh -I../h"))

(let ((*load-verbose* nil))
  (dolist (v '( data defs  macros var  c-pass1 fasdmacros lambda  top top1
		     inline top2 stmt  wr
		     bo1
		     exit
		     defmacro
		     utils  comptype
		     ))
    (si::nload (format nil "~(~a~).lsp" v)))
  (load "opts-base.lsp")
  (let ((u "top2.o"))
  (unless (get 'list 'bcomp-opt)
	  (if (probe-file  u) (load u))
	  (load "lisp-decls.doc")
	  (load "opts.lsp")
	  (if (probe-file U ) (si::nload "top2.lsp"))
	  ))
  (or (fboundp 'do-some-tests) (load "../tests/all-tests.lsp"))
  (load "mangle")
  )