(FILECREATED " 6-Dec-85 01:26:20" {DSK}<LISPFILES>CML>SWAPSTUFF.;7
 2475   

      changes to:  (FNS SHOWLITSWAP)
		   (VARS SWAPSTUFFCOMS LITSWAPGRAPH)

      previous date: " 6-Dec-85 00:07:52" {DSK}<LISPFILES>CML>SWAPSTUFF.;1)


(* Copyright (c) 1985 by Ronald A. Fischer. All rights reserved.)

(PRETTYCOMPRINT SWAPSTUFFCOMS)

(RPAQQ SWAPSTUFFCOMS
 ((FNS SHOWLITSWAP)
			(VARS (LITSWAPGRAPH NIL))))
(DEFINEQ

(SHOWLITSWAP

  [LAMBDA (FILE)                                             (* raf " 6-Dec-85 01:26")

    (
RESETLST
 (
RESETSAVE
 (
OUTPUT
 FILE))
		(bind
 LINE RPTR SECTION (PNAMEPTOTAL ← 0)
			(PNAMEEMPTY ← 0)
			(DEFPTOTAL ← 0)
			(DEFPEMPTY ← 0)
			(PLISTPTOTAL ← 0)
			(PLISTPEMPTY ← 0)
			(VALPTOTAL ← 0)
			(VALPEMPTY ← 0) for
 RP from
 1 to
 (
SUB1
 \RPTSIZE)
		   do
 (
SETQ
 RPTR (fetch
 RPTRBASE of
 RP))
			(
SETQ
 VP (fetch
 (
RPT
 VP) of
 RPTR))
			(
SETQ
 SECTION (
LRSH
 VP 8))
			(
SELECTC
 SECTION
				   (\DEF.HI (add
 DEFPTOTAL 1)
					    (if
 (fetch
 (
RPT
 EMPTY) of
 RPTR)
						then
 (add
 DEFPEMPTY 1)))
				   (\PLIST.HI (add
 PLISTPTOTAL 1)
					      (if
 (fetch
 (
RPT
 EMPTY) of
 RPTR)
						  then
 (add
 PLISTPEMPTY 1)))
				   (\VAL.HI (add
 VALPTOTAL 1)
					    (if
 (fetch
 (
RPT
 EMPTY) of
 RPTR)
						then
 (add
 VALPEMPTY 1)))
				   (\PNAME.HI (add
 PNAMEPTOTAL 1)
					      (if
 (fetch
 (
RPT
 EMPTY) of
 RPTR)
						  then
 (add
 PNAMEEMPTY 1)))
				   NIL)
		   finally
 (
SETQ
 LINE NIL)
			     (printout NIL "Real pages in litatom sections" T "Swapped in: Def " 
				       .F5.2 [
CAR
 (push
 LINE (
FTIMES
 100 (
FQUOTIENT
 DEFPTOTAL 
											    256]
				       "%% plist " .F5.2 [
CAR
 (push
 LINE (
FTIMES
 100
										       (
FQUOTIENT

											 PLISTPTOTAL 
											 256]
				       "%% val " .F5.2 [
CAR
 (push
 LINE (
FTIMES
 100
										     (
FQUOTIENT

										       VALPTOTAL 256]
				       "%% pname " .F5.2 [
CAR
 (push
 LINE (
FTIMES
 100
										       (
FQUOTIENT

											 PNAMEPTOTAL 
											 256]
				       T)
			     (push
 LITSWAPGRAPH LINE)
			     (printout NIL "Empty: Def " DEFPEMPTY " plist " PLISTPEMPTY " val " 
				       VALPEMPTY " pname " PNAMEEMPTY T])
)

(RPAQQ LITSWAPGRAPH
 NIL)
(PUTPROPS SWAPSTUFF COPYRIGHT ("Ronald A. Fischer" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (411 2365 (SHOWLITSWAP 421 . 2363)))))
STOP