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

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.