(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Jan-98 16:28:42" ("compiled on " {DSK}sources>LLMVS.;3) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "30-Dec-93 13:47:40" {DSK}export>lispcore>sources>LLMVS.;2 19599 changes to%: ( MACROS \VALUES) previous date%: "25-Feb-91 22:40:14" {DSK}export>lispcore>sources>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) Oef!kIkIjML_lOdl? IkIjkIkI l Yl MLkMLlMLlMLl[d3 djKKngNjINJ kILlHk2 OdOOa_OOh__Ok_O&_OdlLkԼNkԾ5lLlMLk_OnՁOԼOl!LMLkMLldnnkԼlOOlLOllԼkHhka(149 \SIMULATE.UNBIND) (129 \MVLIST) () CL:VALUES-LIST :D8 (L (0 CL:VALUES) P 7 \INTERRUPTABLE)  f!kHkHjLK^lNdl? HkHjkHkH l Xl XLKkLKlLKlLKlZd3 djJJngMjHMI kHKl@NdlKkԻMkԽilKlLKk^NnՀNԻMNl!KLKkLKldnnkԻ(lNNlKNllԻ@(141 \SIMULATE.UNBIND) (121 \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