* posit.boot: New. Import sys-macros, astr.

	(tokConstruct): Move from ptrees.boot.pamphlet.
	(tokType): Likewise.
	(tokPart): Likewise.
	(tokPosn): Likewise.
	(pfAbSynOp): Likewise.
	(pfAbSynOp?): Likewise.
	(pfLeaf?): Likewise.
	(pfLeaf): Likewise.
	(pfLeafToken): Likewise.
	(pfLeafPosition): Likewise.
	(pfTree): Likewise.
	(pfParts): Likewise.
	(pfFirst): Likewise.
	(pfSecond): Likewise.
	* astr.boot: New.  Import boot-pkg.
	* sys-constants.boot (IDENTITY): Define.
	* patches.lisp.pamphlet (identity): Move definition to sys-constants.
	* cformat.boot: New.  Import unlisp, posit.  Add ugly workwound
	for GCL bug. 
	* incl.boot: New.  Import unlisp, cstream, cformat.  Tweak.
	Add ugly workwound for GCL bug.
	(incLude1): Fix thinko
	* Makefile.pamphlet (incl.$(FASLEXT)): New rule.
	(cformat.$(FASLEXT)): Likewise.
	(posit.$(FASLEXT)): Likewise.
	(astr.$(FASLEXT)): Likewise.
	(DEP): Don't include bits.lisp.
	(${DEPSYS}): Explicitly load "bits" here.

1 files changed, 0 insertions, 99 deletions

diff --git a/src/interp/astr.boot.pamphlet b/src/interp/astr.boot.pamphlet
deleted file mode 100644
index b8f9eb0b..00000000
--- a/src/interp/astr.boot.pamphlet
+++ /dev/null
@@ -1,99 +0,0 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp astr.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
--- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
--- All rights reserved.
---
--- Redistribution and use in source and binary forms, with or without
--- modification, are permitted provided that the following conditions are
--- met:
---
---     - Redistributions of source code must retain the above copyright
---       notice, this list of conditions and the following disclaimer.
---
---     - Redistributions in binary form must reproduce the above copyright
---       notice, this list of conditions and the following disclaimer in
---       the documentation and/or other materials provided with the
---       distribution.
---
---     - Neither the name of The Numerical ALgorithms Group Ltd. nor the
---       names of its contributors may be used to endorse or promote products
---       derived from this software without specific prior written permission.
---
--- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
--- IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
--- TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
--- PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
--- OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
--- EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
--- PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
--- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
--- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
--- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
--- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-@
-<<*>>=
-<<license>>
-
-)package "BOOT"
-
---% Attributed Structures (astr)
--- For objects which are pairs where the CAR field is either just a tag
--- (an identifier) or a pair which is the tag and an association list.
- 
--- Pick off the tag
-ncTag x ==
-   not PAIRP x => ncBug('S2CB0031,[])
-   x := QCAR x
-   IDENTP x => x
-   not PAIRP x => ncBug('S2CB0031,[])
-   QCAR x
- 
--- Pick off the property list
-ncAlist x ==
-   not PAIRP x => ncBug('S2CB0031,[])
-   x := QCAR x
-   IDENTP x => NIL
-   not PAIRP x => ncBug('S2CB0031,[])
-   QCDR x
-
- --- Get the entry for key k on x's association list
-ncEltQ(x,k) ==
-   r := QASSQ(k,ncAlist x)
-   NULL r => ncBug ('S2CB0007,[k])
-   CDR r
- 
--- Put (k . v) on the association list of x and return v
--- case1: ncPutQ(x,k,v) where k is a key (an identifier), v a value
---        put the pair (k . v) on the association list of x and return v
--- case2: ncPutQ(x,k,v) where k is a list of keys, v a list of values
---        equivalent to [ncPutQ(x,key,val) for key in k for val in v]
-ncPutQ(x,k,v) ==
-   LISTP k =>
-      for key in k for val in v repeat ncPutQ(x,key,val)
-      v
-   r := QASSQ(k,ncAlist x)
-   if NULL r then
-      r := CONS( CONS(k,v), ncAlist x)
-      RPLACA(x,CONS(ncTag x,r))
-   else
-      RPLACD(r,v)
-   v
- 
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}