; Copyright (c) 1981 Harvard-Radcliffe Student Timesharing System
; Science Center, Harvard University
.page

	.sbttl	data file for pdp-11 lisp forrest w howard, jr.


;this file has the primitive atoms.

.if	eq,nilas0
	atom	nil,atmnil
 .iff
  .if	ne,multiseg

	;here we are at case where we gotta put
	;nil in psect nil onto oblist, in correct place

	 thash='n
	 thash=<<^c thash>& 'i>!<<^c 'i>&thash>
	 thash=<<^c thash>& 'l>!<<^c 'l>&thash>
	 thash=thash&hashm
	 datom=*0
	 atom1  \thash
 .iff
	atom	nil,atmnil
  .endc
.endc
	atom	eof,aeof
	atom	t,atrue
	atom	e,atme
	atom	<)>,rpara
	atom	<(>,lpara
	atom	<.>,perda
	atom	<[>,lbkta
	atom	<]>,rbkta
	atom	<'>,asquote
	atom	lambda,	alambda
	atom	nlambda,anlambda
	atom	quote,aquote,,,xquote
	atom	lpar,,lpara
	atom	rpar,,rpara
	atom	perd,,perda
	atom	lbkt,,lbkta
	atom	rbkt,,rbkta

	


;now the string definitions

	slp=lpara+6
	srp=rpara+6