(FILECREATED "20-Mar-86 11:50:26" {DANTE}<MARTIN>LISP>CIAPROPOS.;2
 2753   

      changes to:  (FNS APROPOS)
		   (VARS CIAPROPOSCOMS)

      previous date: "19-Mar-86 14:50:10" {DANTE}<MARTIN>LISP>CIAPROPOS.;1)


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT CIAPROPOSCOMS)

(RPAQQ CIAPROPOSCOMS
 ((FNS APROPOS)))
(DEFINEQ

(APROPOS

  [LAMBDA (STRING ALLFLG QUIETFLG OUTPUT CASEXACT)           (* bvm: "19-Mar-86 16:09")

    (
PROG
 ((FILTERFN (
AND
 ALLFLG (
NEQ
 ALLFLG T)
			      (
FNTYP
 ALLFLG)
			      ALLFLG))
	     [DISPLAYSTREAM (
AND
 (
NOT
 QUIETFLG)
				   (
DISPLAYSTREAMP
 (
SETQ
 OUTPUT (
GETSTREAM
 (
OR
 OUTPUT T)
										 (
QUOTE
 OUTPUT]
	     (BLOCKCOUNT 32)
	     (
CASEARRAY
 (
AND
 (
NOT
 CASEXACT)
				 UPPERCASEARRAY))
	     RESULT)
	    (DECLARE
 (
SPECVARS
 RESULT FILTERFN DISPLAYSTREAM))
	    [
RESETFORM
 (
PRINTLEVEL
 3 5)
			 (
MAPATOMS
 (
FUNCTION
 (LAMBDA (
ATOM
)
					 (
PROG
 (VAL)
					         (DECLARE
 (
USEDFREE
 RESULT BLOCKCOUNT FILTERFN))
					         (
COND

						   ((
EQ
 0 (
SETQ
 BLOCKCOUNT (
SUB1
 BLOCKCOUNT)))
						     (
SETQ
 BLOCKCOUNT 32)
						     (
BLOCK
)))
					         (
COND

						   ([
COND

						       (FILTERFN (
AND
 (
STRPOS
 STRING ATOM NIL NIL 
										  NIL NIL CASEARRAY)
									(
APPLY*
 FILTERFN ATOM)))
						       (T (
AND
 (
OR
 ALLFLG (
GETD
 ATOM)
								       (
GETPROPLIST
 ATOM)
								       (
NEQ
 (
GETTOPVAL
 ATOM)
									      (
QUOTE
 NOBIND)))
								 (
STRPOS
 STRING ATOM NIL NIL NIL 
									   NIL CASEARRAY)
								 (
OR
 ALLFLG
								       (
AND
 (
NOT
 (
GENSYM?

										       ATOM))
									      (
NEQ
 (
CHCON1
 ATOM)
										     (
CHARCODE

										       \))
									      (
NOT

										(
\SUBFNDEF
 ATOM]
						     (
COND

						       (QUIETFLG (push
 RESULT ATOM))
						       (T (
COND

							    ((
OR
 (
GETD
 ATOM)
								   (
GETPROPLIST
 ATOM)
								   (
NEQ
 (
GETTOPVAL
 ATOM)
									  (
QUOTE
 NOBIND)))
							      (
FRESHLINE
 OUTPUT)))
							  (PRINTOUT OUTPUT .P2 ATOM ,)
							  (
COND

							    ((
GETD
 ATOM)
							      (
APROPRINT
 "function:"
									   (
ARGLIST
 ATOM)
									   OUTPUT)))
							  (
COND

							    ((
NEQ
 (
SETQ
 VAL (
GETTOPVAL
 ATOM))
								    (
QUOTE
 NOBIND))
							      (
APROPRINT
 "value:   " VAL OUTPUT)))
							  (
COND

							    ((
SETQ
 VAL (
GETPROPLIST
 ATOM))
							      (
APROPRINT
 "proplist:" VAL OUTPUT]
	    (
RETURN
 RESULT])
)
(PUTPROPS CIAPROPOS COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (361 2673 (APROPOS 371 . 2671)))))
STOP