[unix-history] / .ref-BSD-4_3_Net_2 / usr / src / usr.bin / lisp / pearl / inits.l

;;;;;;;;;;;;;;;;;;;;;;;;;;;;; inits.l ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Expressions which set the values of special variables and create
;    nilsym and nilstruct and which use PEARL functions and so must
;    be done AFTER everything is loaded.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Copyright (c) 1983 ,  The Regents of the University of California.
; All rights reserved.  
; Authors: Joseph Faletti and Michael Deering.

(progn
  ; A very special cell.
  (setq *any*conscell* (cons '*any* (punbound)))
  ; Define the default symbol.
  (or (boundp (symatom 'nilsym))
      (symbol nilsym))
  ; Define the default empty structure.
  (or (boundp (defatom 'nilstruct))
      (create base nilstruct))
  ; Values that should not take part in hashing.
  ;   Used to include ",(eval (defatom 'nilstruct)) ,(eval (symatom 'nilsym))".
  (setq *unhashablevalues* `(nil ,(punbound) ,(unbound)))
  (putprop 'history '(history) 'alias)
  (putprop 'h '(history 22) 'alias)
  (defprop quote "'" printmacro)
  (defprop pearlequals "=" printmacro)
  (defprop *var* "?" printmacro)
  (defprop *global* "?" printmacro)
  (setdbsize 7.)
  (builddb *maindb*)
  (setq *db* *maindb*)
  )

; vi: set lisp:
Commit	Line	Data
7129096e C	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 anyconscell* (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: