(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Nov-93 19:49:01" ("compiled on " {DSK}export>lispcore>sources>CLTL2>LLMVS.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 16:35:37" "{Pele:mv:envos}Sources>CLTL2>LLMVS.;2" 20546 previous date%: " 3-Sep-91 18:10:25" "{Pele:mv:envos}Sources>CLTL2>LLMVS.;1") (RPAQQ LLMVSCOMS ((* ;;; "Runtime support for multiple value passing. This file must be present for compiled multiple values to work." ) (FNS CL:VALUES CL:VALUES-LIST \MVLIST \SIMULATE.UNBIND) (DECLARE%: DONTCOPY (MACROS \VALUES \VALUES-UFN) (LOCALVARS . T)) (VARIABLES CL:MULTIPLE-VALUES-LIMIT) (* ;; "UFNs for the CL:VALUES and CL:VALUES-LIST sub-opcodes of MISCN:") (FNS CL::VALUES-UFN CL::VALUES-LIST-UFN) (PROP FILETYPE LLMVS) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CL:VALUES))))) CL:VALUES :D8 (L (0 ARGS) P 8 \INTERRUPTABLE) Gef!kIkIjML_lOdl? IkIjkIkI l Yl MLkMLlMLl[d3 djKKngNjINJ kILlHk2 OdOOa_OOh__Ok_O&_OdlLkԼNkԾ=lLlMLk_OnՁOԼOl!LMLkMLldnnkԼlOOlLOllԼkHhka(141 \SIMULATE.UNBIND) (121 \MVLIST) () CL:VALUES-LIST :D8 (L (0 CL:VALUES) P 7 \INTERRUPTABLE) f!kHkHjLK^lNdl? HkHjkHkH l Xl PLKkLKlLKlZd3 djJJngMjHMI kHKl@NdlKkԻMkԽqlKlLKk^NnՀNԻUNl!KLKkLKldnnkԻ0lNNlKNllԻ@(133 \SIMULATE.UNBIND) (113 \MVLIST) () \MVLIST :D8 (L (0 X)) @hNIL NIL () \SIMULATE.UNBIND :D8 (L (2 RETURNER 1 N 0 FRAME)) k@Hk@l ѺAk_N@IlչkIjkIkInk\KJMnMlսLk԰Ok԰k@IIHI Bf_kOj'kOOlkOkO kOkkjh(102 \MAKEFREEBLOCK) NIL () (XCL::SET-CONSTANTP (QUOTE CL:MULTIPLE-VALUES-LIMIT) NIL) (SETQ CL:MULTIPLE-VALUES-LIMIT 512) (CL:PROCLAIM (QUOTE (SI::CONSTANT CL:MULTIPLE-VALUES-LIMIT))) CL::VALUES-UFN :D8 (L (2 CL::ARG-PTR 1 CL::ARGCOUNT 0 CL::INDEX) P 14 \INTERRUPTABLE) fkHjkHkH l kHjkHkH l fAHkIkIjNM_lOdl? IkIjkIkI l Yl NMkNMl[d3 djKKngAkj2 OO)BO_OOh__Ol_O&_OkHBOjIOJ kIMlH LOdlMkԽOk_%lMlNMk_OnՁOԽOl!MNMkNMldnnkԽlOOlMOllԽkAhB(274 SI::UNWIND 257 \SIMULATE.UNBIND) (169 \MVLIST) () CL::VALUES-LIST-UFN :D8 (L (2 CL::ARG-PTR 1 CL::ARGCOUNT 0 CL::INDEX) P 12 \INTERRUPTABLE) r BqfkIjkIkI l ٺkJjkJkJ l ٵf[hkLkLj OO_lOdl? LkLjkLkL l \l dOOkOOl^d3 djNNngH_kKB OjLOM kLOlK OOdlOk_Ok_Ql!OlOOk_OnՁO_-Ol(OOOkOOldnnk_lOOlOOll_H(224 SI::UNWIND 206 \SIMULATE.UNBIND) (172 \MVLIST) () (PUTPROPS LLMVS FILETYPE :FAKE-COMPILE-FILE) (PUTPROPS LLMVS COPYRIGHT ("Xerox Corporation" 1986 1987 1989 1990 1991 1993)) NIL