Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
(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