[unix-history] / usr / src / usr.bin / lisp / pearl / pearlbase.l

;;;;;;;;;;;;;;;;;;;;;;;;;;; pearlbase.l ;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This file is the first half of PEARL for compiling in two steps.
;    After it is compiled, it can be loaded into a liszt that is
;    compiling pearlbulk.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Copyright (c) 1983 ,  The Regents of the University of California.
; All rights reserved.  
; Authors: Joseph Faletti and Michael Deering.

(eval-when (compile)
  ; To cut down on the number of garbage collects during compilation.
  (allocate 'list 800)
  (allocate 'symbol 200)
  (declare (special defmacro-for-compiling))
  (setq defmacro-for-compiling t))

(declare (macros t))
(declare (localf enforcetype buildvalue
		 insidescopy insidepatternize insidevarreplace
		 followpath convertpreds revassq
		 recursetoinsidestandardfetch gethashvalue insertbyfocus
		 removebyfocus
		 prefix addhistory read-in-startprl-file read-in-initprl-file))

(include ucisubset.l)
; Version numbers are in here.
(include franz.l)
(include lowlevel.l)
(include db.l)
(include vars.l)
(include symord.l)
(include hook.l)


; vi: set lisp:
Commit	Line	Data
7129096e C	1	;;;;;;;;;;;;;;;;;;;;;;;;;;; pearlbase.l ;;;;;;;;;;;;;;;;;;;;;;;;;;;
	2	; This file is the first half of PEARL for compiling in two steps.
	3	; After it is compiled, it can be loaded into a liszt that is
	4	; compiling pearlbulk.l
	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	(eval-when (compile)
	11	; To cut down on the number of garbage collects during compilation.
	12	(allocate 'list 800)
	13	(allocate 'symbol 200)
	14	(declare (special defmacro-for-compiling))
	15	(setq defmacro-for-compiling t))
	16
	17	(declare (macros t))
	18	(declare (localf enforcetype buildvalue
	19	insidescopy insidepatternize insidevarreplace
	20	followpath convertpreds revassq
	21	recursetoinsidestandardfetch gethashvalue insertbyfocus
	22	removebyfocus
	23	prefix addhistory read-in-startprl-file read-in-initprl-file))
	24
	25	(include ucisubset.l)
	26	; Version numbers are in here.
	27	(include franz.l)
	28	(include lowlevel.l)
	29	(include db.l)
	30	(include vars.l)
	31	(include symord.l)
	32	(include hook.l)
	33
	34
	35	; vi: set lisp: