(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)

(FILECREATED "16-May-90 19:17:05" |{DSK}<usr>local>lde>lispcore>sources>LLERROR.;2|
 1461   

      |changes| |to:|  (VARS LLERRORCOMS)

      |previous| |date:| "15-Jan-88 16:30:33" |{DSK}<usr>local>lde>lispcore>sources>LLERROR.;1|)


; Copyright (c) 1987, 1988, 1990 by Venue & Xerox Corporation.  All rights reserved.

(PRETTYCOMPRINT LLERRORCOMS)

(RPAQQ LLERRORCOMS
 ((FUNCTIONS SIMPLE-FORMAT)
                        (P (MOVD? 'SIMPLE-FORMAT 'CL:FORMAT))
                        (STRUCTURES PROCEED-CASE)
                        (VARIABLES SI::NLSETQ-PROCEED-CASE)
                        (PROP FILETYPE LLERROR)))

(CL:DEFUN SIMPLE-FORMAT
 (STREAM &REST ARGS)
   (CL:WHEN (EQ STREAM T)
          (CL:SETF STREAM *STANDARD-OUTPUT*))
   (CL:DOLIST (X ARGS)
       (CL:PRINT X STREAM)))

(MOVD? 'SIMPLE-FORMAT 'CL:FORMAT)

(CL:DEFSTRUCT (PROCEED-CASE
 (:INCLUDE CONDITIONS:RESTART)
                                (:CONC-NAME "%PROCEED-CASE-")))

(DEFGLOBALPARAMETER SI::NLSETQ-PROCEED-CASE
 (MAKE-PROCEED-CASE :NAME 'ABORT :SELECTOR 0 :TEST NIL
                                                       :REPORT "Unwind to ERRORSET")
                                                "The prototype proceed-case object for NLSETQ.")

(PUTPROPS LLERROR
 FILETYPE
 COMPILE-FILE)
(PUTPROPS LLERROR COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL)))
STOP