Return to inits.l CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / pearl

Annotation of 42BSD/ucb/lisp/pearl/inits.l, revision 1.1

1.1     ! root        1: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; inits.l ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        !             2: ; Expressions which set the values of special variables and create
        !             3: ;    nilsym and nilstruct and which use PEARL functions and so must
        !             4: ;    be done AFTER everything is loaded.
        !             5: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        !             6: ; Copyright (c) 1983 ,  The Regents of the University of California.
        !             7: ; All rights reserved.  
        !             8: ; Authors: Joseph Faletti and Michael Deering.
        !             9: 
        !            10: (progn
        !            11:   ; A very special cell.
        !            12:   (setq *any*conscell* (cons '*any* (punbound)))
        !            13:   ; Define the default symbol.
        !            14:   (or (boundp (symatom 'nilsym))
        !            15:       (symbol nilsym))
        !            16:   ; Define the default empty structure.
        !            17:   (or (boundp (defatom 'nilstruct))
        !            18:       (create base nilstruct))
        !            19:   ; Values that should not take part in hashing.
        !            20:   ;   Used to include ",(eval (defatom 'nilstruct)) ,(eval (symatom 'nilsym))".
        !            21:   (setq *unhashablevalues* `(nil ,(punbound) ,(unbound)))
        !            22:   (putprop 'history '(history) 'alias)
        !            23:   (putprop 'h '(history 22) 'alias)
        !            24:   (defprop quote "'" printmacro)
        !            25:   (defprop pearlequals "=" printmacro)
        !            26:   (defprop *var* "?" printmacro)
        !            27:   (defprop *global* "?" printmacro)
        !            28:   (setdbsize 7.)
        !            29:   (builddb *maindb*)
        !            30:   (setq *db* *maindb*)
        !            31:   )
        !            32: 
        !            33: ; vi: set lisp:

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