Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50322/compat.lsp
Click 43,50322/compat.lsp to see without markup as text/plain
There are no other files named compat.lsp in the archive.

(DEFPROP COMPATFNS
 (COMPATFNS (PUTPROP (QUOTE AND#) (GET (QUOTE AND) (QUOTE FSUBR)) (QUOTE FSUBR))
	    (PUTPROP (QUOTE OR#) (GET (QUOTE OR) (QUOTE FSUBR)) (QUOTE FSUBR))
	    (PUTPROP (QUOTE MEMQ#) (GET (QUOTE MEMQ) (QUOTE SUBR)) (QUOTE SUBR))
	    (PUTPROP (QUOTE MEMBER#) (GET (QUOTE MEMBER) (QUOTE SUBR)) (QUOTE SUBR)))
VALUE)

(PUTPROP (QUOTE AND#) (GET (QUOTE AND) (QUOTE FSUBR)) (QUOTE FSUBR))

(PUTPROP (QUOTE OR#) (GET (QUOTE OR) (QUOTE FSUBR)) (QUOTE FSUBR))

(PUTPROP (QUOTE MEMQ#) (GET (QUOTE MEMQ) (QUOTE SUBR)) (QUOTE SUBR))

(PUTPROP (QUOTE MEMBER#) (GET (QUOTE MEMBER) (QUOTE SUBR)) (QUOTE SUBR))