(FILECREATED " 8-Sep-86 15:03:37" ("compiled on " {ERIS}<LISPCORE>LIBRARY>PCLPATCH.;2) 
"29-Aug-86 22:21:56" tcompl'd in "Xerox Lisp 29-Aug-86 ..." dated "29-Aug-86 22:55:03")
(FILECREATED " 8-Sep-86 15:03:21" {ERIS}<LISPCORE>LIBRARY>PCLPATCH.;2 2569 previous date: 
" 1-Aug-86 04:28:55" {ERIS}<LISPCORE>LIBRARY>PCLPATCH.;1)
(PRETTYCOMPRINT PCLPATCHCOMS)
(RPAQQ PCLPATCHCOMS ((P (MOVD? (QUOTE NREVERSE) (QUOTE CL:NREVERSE))) (FUNCTIONS RUN-SUPER-INTERNAL)))
(MOVD? (QUOTE NREVERSE) (QUOTE CL:NREVERSE))
(DEFUN RUN-SUPER-INTERNAL (DISCRIMINATOR CURRENT-METHOD &REST ARGS) (LET ((TYPE-SPECIFIERS (
METHOD-TYPE-SPECIFIERS CURRENT-METHOD)) (MOST-SPECIFIC NIL) (MOST-SPECIFIC-TYPE-SPECIFIERS NIL)) (
ITERATE ((METHOD IN (DISCRIMINATOR-METHODS DISCRIMINATOR))) (LET ((METHOD-TYPE-SPECIFIERS (
METHOD-TYPE-SPECIFIERS METHOD)) (TEMP NIL)) (AND (CL:EVERY (CL:FUNCTION (CL:LAMBDA (ARG TYPE-SPEC) (OR
 (EQ TYPE-SPEC (QUOTE T)) (MEMQ TYPE-SPEC (GET-SLOT--CLASS (CLASS-OF ARG) (QUOTE CLASS-PRECEDENCE-LIST
)))))) ARGS METHOD-TYPE-SPECIFIERS) (EQL 1 (CL:SETQ TEMP (COMPARE-TYPE-SPECIFIER-LISTS TYPE-SPECIFIERS
 METHOD-TYPE-SPECIFIERS NIL ARGS NIL))) (OR (NULL MOST-SPECIFIC) (EQL 1 (CL:SETQ TEMP (
COMPARE-TYPE-SPECIFIER-LISTS METHOD-TYPE-SPECIFIERS MOST-SPECIFIC-TYPE-SPECIFIERS NIL ARGS NIL)))) (
CL:SETQ MOST-SPECIFIC METHOD MOST-SPECIFIC-TYPE-SPECIFIERS METHOD-TYPE-SPECIFIERS)))) (CL:IF (OR 
MOST-SPECIFIC (CL:SETQ MOST-SPECIFIC (DISCRIMINATOR-DEFAULT-METHOD DISCRIMINATOR))) (CL:APPLY (
METHOD-FUNCTION MOST-SPECIFIC) ARGS) (CL:ERROR "no super method found"))))
(PUTPROPS PCLPATCH COPYRIGHT ("Xerox Corporation" 1986))
NIL