;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 123.234
;;; Reason:
;;;  If you are INSPECTing an instance and modify a slot that was not listed in
;;;  the Flavor's :settable-instance-variables, you are given an error message:
;;;  The object xxx received a :set :xxx message which went unclaimed
;;;  The message is accurate, but misleading, as INSPECT then proceeds
;;;  to set the instance variable another way.  Suppress it.
;;; Written 14-Apr-88 14:35:41 by pld at site Gigamos Cambridge
;;; while running on Jack Flanders from band 1
;;; with Experimental System 123.232, Experimental Local-File 73.4, Experimental FILE-Server 22.2, Experimental Unix-Interface 11.0, Experimental KERMIT 34.3, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, Experimental Tape 22.0, Experimental VERIFY 6.0, Experimental RPG-BENCHMARKS 6.0, Experimental Site Data Editor 9.0, microcode 1755, SDU Boot Tape 3.14, SDU ROM 8.



; From modified file DJ: L.WINDOW; INSPCT.LISP#185 at 14-Apr-88 14:35:41
#8R TV#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TV")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: WINDOW; INSPCT  "

(DEFUN (:PROPERTY INSTANCE-SLOT SET-FUNCTION) (ITEM NEW-VALUE OBJECT)
  (LET* ((SLOT (THIRD (SECOND ITEM))))
    (UNLESS (CATCH-ERROR
	      (PROGN (SEND OBJECT :SET (INTERN SLOT SI:PKG-KEYWORD-PACKAGE) NEW-VALUE)
		     T)
	      NIL)
      (SET-IN-INSTANCE OBJECT SLOT NEW-VALUE))))

))