;System MEDIUM-RESOLUTION-COLOR made by pld at 25-Jul-88 22:02:21 -*-Mode: Lisp; Package: User; Base: 10-*- ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: VIDEO-DEVICE; GREY; GREY-DEFS LISP >" '((:COMPILE NIL))) ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: VIDEO-DEVICE; GREY; GREY-TESTINIT LISP >" '((:COMPILE NIL (GREY::WRITE-PLANE NIL NIL (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON)) (SI::PREMATURE-WARNING-MARKER NIL NIL "The problems described above were in data preceding the definition of ~S." GREY::WRITE-PLANE) (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON))) (GREY::READ-PLANE NIL NIL (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON)) (SI::PREMATURE-WARNING-MARKER NIL NIL "The problems described above were in data preceding the definition of ~S." GREY::READ-PLANE) (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON))) (GREY::WRITE-COLOR-MAP NIL NIL (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON)) (SI::PREMATURE-WARNING-MARKER NIL NIL "The problems described above were in data preceding the definition of ~S." GREY::WRITE-COLOR-MAP) (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON))) (GREY::READ-COLOR-MAP NIL NIL (COMPILER::WRONG-NUMBER-OF-ARGUMENTS :OBSOLETE NIL "~S called with multiple value arguments~% ~ use ~S instead." RETURN (RETURN (VALUES (AR-2-REVERSE GREY::HARDWARE-COLOR-MAP GREY::LOC 0) (AR-2-REVERSE GREY::HARDWARE-COLOR-MAP GREY::LOC 1) (AR-2-REVERSE GREY::HARDWARE-COLOR-MAP GREY::LOC 2))))) (GREY::RAM-FAST-ADR-TEST NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" GREY::FAST-ADR-TEST)) (GREY::INIT NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" GREY::LOAD-SRAM) (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" GREY::CLR-SRAM-ADR)) (GREY::BYTE-WRITE NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" LAMBDA::ND-SLOT-WRITE-BYTE)) (GREY::WORD-READ NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" LAMBDA::ND-SLOT-READ)) (GREY::WORD-WRITE NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" LAMBDA::ND-SLOT-WRITE))))) ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: VIDEO-DEVICE; GREY; SRAM-COMPILER LISP >" '((:COMPILE NIL))) ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: VIDEO-DEVICE; GREY; SRAM_REV_COMBINED LISP >" '((:COMPILE NIL))) ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: VIDEO-DEVICE; GREY; GREY-WINDOW LISP >" '((:COMPILE NIL (GREY::SCREEN-INITIALIZE NIL NIL (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON)) (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON))) (GREY::REINITIALIZE-SCREEN NIL NIL (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON)) (SI::PREMATURE-WARNING-MARKER NIL NIL "The problems described above were in data preceding the definition of ~S." GREY::REINITIALIZE-SCREEN) (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON))) (GREY::FIND-GREY-FONTS-CREATED NIL NIL (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON)) (SI::PREMATURE-WARNING-MARKER NIL NIL "The problems described above were in data preceding the definition of ~S." GREY::FIND-GREY-FONTS-CREATED)) ((:METHOD GREY::GREY-SCREEN-PLANE SI::FASLOAD-COMBINED :EXPOSE) NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" GREY::GREY-EXISTS-AND-IF-SO-DOWNLOADED-P)) ((:METHOD GREY::GREY-SCREEN SI::FASLOAD-COMBINED :EXPOSE) NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" GREY::GREY-EXISTS-AND-IF-SO-DOWNLOADED-P)) ((:METHOD GREY::GREY-SCREEN :DEVICE-ATTACHED?) NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" GREY::GREY-EXISTS-AND-IF-SO-DOWNLOADED-P))))) ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: VIDEO-DEVICE; GREY; GREY-INIT LISP >" '((:COMPILE NIL (GREY::STANDARD-GREY-INITIALIZATION-PROCEDURE NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" COLOR:COLOR-EXISTS-P) (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON)) (SI::PREMATURE-WARNING-MARKER NIL NIL "The problems described above were in data preceding the definition of ~S." GREY::STANDARD-GREY-INITIALIZATION-PROCEDURE) (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON)) (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON)) (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON))) (GREY::GREY-EXISTS-AND-IF-SO-DOWNLOADED-P NIL NIL (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON)))))) ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: VIDEO-DEVICE; GREY; COLOR LISP >" '((:COMPILE NIL))) ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: VIDEO-DEVICE; GREY; CAFE LISP >" '((:COMPILE NIL (HACKS::CAFE-SLIDE NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" HACKS::NO-COLOR-DEMO))))) ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: VIDEO-DEVICE; GREY; COLXOR LISP >" '((:COMPILE NIL (HACKS::BRIGHTEN NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" HACKS:WITH-REAL-TIME)) (HACKS::RANDOM-RAMP NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" HACKS:WITH-REAL-TIME)) (HACKS::COLOR-MASH NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" HACKS:WITH-REAL-TIME)) (HACKS::COLOR-MARCH NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" HACKS:WITH-REAL-TIME)) (HACKS::COLOR-RAMP NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" HACKS:WITH-REAL-TIME)) (HACKS::SMOKING-CLOVER NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" HACKS:WITH-REAL-TIME))))) ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: VIDEO-DEVICE; GREY; COLORHACK LISP >" '((:COMPILE NIL (HACKS::WANDER-MAP NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" HACKS:WITH-REAL-TIME)) (HACKS::MELT-IN NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" HACKS:WITH-REAL-TIME)))))