BSD 4_3 development

[unix-history] / usr / lib / lisp / buildlisp.l

diff --git a/usr/lib/lisp/buildlisp.l b/usr/lib/lisp/buildlisp.l
index 8f9ba5d..e1a3460 100644 (file)
--- a/usr/lib/lisp/buildlisp.l
+++ b/usr/lib/lisp/buildlisp.l
@@ -1,8 +1,10 @@
 (int:setsyntax '\; 'splicing 'zapline)
 (int:setsyntax '\; 'splicing 'zapline)

-;; buildlisp.l                         -[Tue Apr 13 13:43:55 1982 by jkf]-
+;; buildlisp.l                         -[Mon Aug 15 11:04:31 1983 by jkf]-

 ;; build the lisp system from the C kernel
 ;; the order of these files is very important.
 ;; build the lisp system from the C kernel
 ;; the order of these files is very important.

-;; @(#)buildlisp.l     1.4     4/13/82
+;;
+(setq rcs-buildlisp-
+   "$Header: /usr/lib/lisp/RCS/buildlisp.l,v 1.2 83/08/15 22:16:06 jkf Exp $")

 
 ; variables to modify the way buildlisp works:
 ;   build:dir -- directory containing the object files to load
 
 ; variables to modify the way buildlisp works:
 ;   build:dir -- directory containing the object files to load


@@ -10,6 +12,8 @@
 ;   build:map -- map file to write the fasl map into.
 ;      default: no map is written
 ;   build:load -- if t then only loading will be done, no fasl'ing
 ;   build:map -- map file to write the fasl map into.
 ;      default: no map is written
 ;   build:load -- if t then only loading will be done, no fasl'ing

+;   build:lisp-type -- may contain a site dependent name to help build
+;              a personalized lisp

 ;   lisp-library-directory -- directory which will contain lisp library
 ;      this directory will be part of the default search path
 ;   lisp-object-directory -- directory which contains the lisp object file
 ;   lisp-library-directory -- directory which will contain lisp library
 ;      this directory will be part of the default search path
 ;   lisp-object-directory -- directory which contains the lisp object file


@@ -17,6 +21,7 @@
 (or (boundp 'build:dir) (setq build:dir '/usr/lib/lisp))
 (or (boundp 'build:map) (setq build:map nil))
 (or (boundp 'build:load) (setq build:load nil))
 (or (boundp 'build:dir) (setq build:dir '/usr/lib/lisp))
 (or (boundp 'build:map) (setq build:map nil))
 (or (boundp 'build:load) (setq build:load nil))

+(or (boundp 'build:lisp-type) (setq build:lisp-type 'franz))

 (or (boundp 'lisp-library-directory)
    (setq lisp-library-directory '/usr/lib/lisp))
 (or (boundp 'lisp-object-directory)
 (or (boundp 'lisp-library-directory)
    (setq lisp-library-directory '/usr/lib/lisp))
 (or (boundp 'lisp-object-directory)


@@ -49,22 +54,46 @@
               (exit 1)  ; just go away fast so user will realize problem
            )))))
               
               (exit 1)  ; just go away fast so user will realize problem
            )))))
               

-                     
+             

 (build:load 'common0)
 (build:load 'syntax)
 (build:load 'charmac)
 (build:load 'macros)
 (build:load 'common1)
 (build:load 'common2)
 (build:load 'common0)
 (build:load 'syntax)
 (build:load 'charmac)
 (build:load 'macros)
 (build:load 'common1)
 (build:load 'common2)

+(build:load 'common3)

 (build:load 'vector)
 (build:load 'array)
 (build:load 'pp)
 (build:load 'vector)
 (build:load 'array)
 (build:load 'pp)

+
+; only load format if it is compiled. This will save some time when
+; building an interpreted lisp system
+(cond ((probef (concat build:dir "/format.o"))
+       (build:load 'format)))
+

 (build:load 'version)
 (build:load 'version)

+
+(and (not (eq build:lisp-type 'zlisp))
+     (build:load 'tpl))
+

 (build:load 'toplevel)
 
 (build:load 'toplevel)
 

+(cond ((eq build:lisp-type 'franz))
+      ((eq build:lisp-type 'zlisp)
+       (build:load 'zlisp))
+      (t (patom "Invalid lisp type: ")
+        (patom build:lisp-type)
+        (terpr)
+        (exit 1)))
+

 ; kill definitions
 (putd 'fasl-or-load  nil)
 (putd 'build:load nil)
 ; kill definitions
 (putd 'fasl-or-load  nil)
 (putd 'build:load nil)

+(allocate 'hunk3 2)    ; make space for format to use
+(new-vector 1024)
+(new-vectori-long 512)
+(gc)
+