(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "26-Jan-98 14:00:44" ("compiled on " |{DSK}disk2>jdstools>lc3>lispcore3.0>sources>XCLC-RUNTIME.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" |in| "Medley 14-Aug-95 ..." |dated| "14-Aug-95 15:27:48") (FILECREATED "23-May-90 13:18:14" |{DSK}local>lde>lispcore>sources>XCLC-RUNTIME.;2| 1859 |changes| |to:| (VARS XCLC-RUNTIMECOMS) |previous| |date:| "29-Oct-86 13:53:23" |{DSK}local>lde>lispcore>sources>XCLC-RUNTIME.;1|) (RPAQQ XCLC-RUNTIMECOMS ((* |;;;| "Runtime support for functions compiled by the XCL compiler.") ( FUNCTIONS SI::ARGUMENT-ERROR) (* |;;| "Arrange to use the proper compiler") (PROP FILETYPE XCLC-RUNTIME))) SI::ARGUMENT-ERROR :D8 (L (1 SI::MAX-ARGS 0 SI::MIN-ARGS)) mmþ !H ¹H º@Jó² ggIg@gJ A²%JAó² ggIgAgJ o (106 CL:ERROR 95 CL:ERROR 57 CL:ERROR 22 STKNARGS 15 STKNAME 6 STKNTH) (88 :ACTUAL 82 :MAXIMUM 76 :CALLEE 71 TOO-MANY-ARGUMENTS 50 :ACTUAL 44 :MINIMUM 38 :CALLEE 33 TOO-FEW-ARGUMENTS) ( 101 "BUG: SI::ARGUMENT-ERROR called when no error exists!") (PUTPROPS XCLC-RUNTIME FILETYPE CL:COMPILE-FILE) (PUTPROPS XCLC-RUNTIME COPYRIGHT ("Venue & Xerox Corporation" 1986 1990)) NIL