(FILECREATED "16-DEC-81 09:22:16" <LISPUSERS>COMPMODEREC.;1
 1298   

     changes to:  COMPRECTRAN)


(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)                                            (* rmk: "16-DEC-81 09:20")

    (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 (CAR RESULT)
			(CONS (CADR DECL)
			      (CDR RESULT])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (511 1274 (COMPRECTRAN 523 . 1271)))))
STOP