(FILECREATED "25-JAN-83 16:27:35" {PHYLUM}<LISPUSERS>COMPMODEREC.;2
 1476   

      changes to:  (FNS COMPRECTRAN)

      previous date: "16-DEC-81 09:22:16" {PHYLUM}<LISPUSERS>COMPMODEREC.;1)


(* Copyright (c) 1983 by Xerox Corporation)

(PRETTYCOMPRINT COMPMODERECCOMS)

(RPAQQ COMPMODERECCOMS
 ((E (RESETSAVE CLISPIFYPRETTYFLG NIL))
			(ADDVARS (CLISPRECORDTYPES COMPREC))
			(P (MOVD? (QUOTE RECORD)
				  (QUOTE COMPREC)))
			(PROP USERRECORDTYPE COMPREC)
			(FNS COMPRECTRAN)))

(ADDTOVAR CLISPRECORDTYPES
 COMPREC)
(MOVD? (QUOTE RECORD)
       (QUOTE COMPREC))

(PUTPROPS COMPREC USERRECORDTYPE
 COMPRECTRAN)
(DEFINEQ

(COMPRECTRAN

  [LAMBDA (DECL)                                             (* bas: "25-JAN-83 16:25")

    (PROG [(RESULT (CADAR (SELECTQ (COMPILEMODE)
				   [D (SOME (CDDR DECL)
					    (FUNCTION (LAMBDA (X)
						(EQMEMB (QUOTE D)
							(CAR X]
				   [(PDP-10 MAXC/10 MAXC)
				     (SOME (CDDR DECL)
					   (FUNCTION (LAMBDA (X)
					       (EQMEMB (QUOTE PDP-10)
						       (CAR X]
				   [VAX (SOME (CDDR DECL)
					      (FUNCTION (LAMBDA (X)
						  (EQMEMB (QUOTE VAX)
							  (CAR X]
				   [JERICHO (SOME (CDDR DECL)
						  (FUNCTION (LAMBDA (X)
						      (EQMEMB (QUOTE JERICHO)
							      (CAR X]
				   (SHOULDNT]
          (RETURN (CONS (OR (CAR RESULT)
			    (QUOTE RECORD))
			(CONS (CADR DECL)
			      (CDR RESULT])
)
(PUTPROPS COMPMODEREC COPYRIGHT ("Xerox Corporation" 1983))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (629 1394 (COMPRECTRAN 639 . 1392)))))
STOP