Return to cmake.l CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / lisp / liszt

Annotation of 43BSD/ucb/lisp/liszt/cmake.l, revision 1.1.1.1

1.1       root        1: ; file which loads in all the object files and dumps them
                      2: 
                      3: ; $Header: cmake.l,v 1.6 83/08/14 01:45:39 layer Exp $
                      4: 
                      5: ;                              -[Sat Aug 13 18:03:38 1983 by layer]-
                      6: 
                      7: ;--- genl :: generate liszt
                      8: ; args are unevalated.  first arg is the name of the liszt to build
                      9: ; other args [optional]:  slow         - build interpreted.
                     10: ;
                     11: (defun genl fexpr (args)
                     12:    (let ((dumpname (car args))
                     13:         (slowp (memq 'slow (cdr args))))
                     14:       (load 'fcninfo)  ; in /usr/lib/lisp (not normally in lisp)
                     15:       (if slowp then (load '../cmacros.l))
                     16:       (mapc '(lambda (name)
                     17:                (if slowp
                     18:                   then ; lisp source is in ..
                     19:                        (load (concat "../" name ".l"))
                     20:                   else ; objects are in .
                     21:                        (load name)))
                     22:            '(decl array vector datab expr io funa funb func tlev
                     23:                   instr fixnum util lversion))
                     24:       (allocate 'list 400)
                     25:       (allocate 'fixnum 10)
                     26:       (allocate 'symbol 50)
                     27:       (sstatus translink on)
                     28:       (if slowp then (setq displace-macros t))
                     29:       (sstatus nofeature for-vax) ; remove memory of what it was compiled for
                     30:       (sstatus nofeature for-68k)
                     31:       ;indicate type of compiler (np and lbot in global registers)
                     32:       (setq $global-reg$ (not (status feature no-global-reg)))
                     33:       (putprop 'chead nil 'version)  ; so the compiler can compile itself
                     34:       (setq ER%tpl 'break-err-handler) ; in case we are using another tpl
                     35:       ; this is a temporary measure
                     36:       (apply 'dumplisp (list dumpname))))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.