;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System Revision Level version 3.191
;;; Reason:
;;;  Fix gross bug in objectLisp DEFCLASSVARS -- EFH
;;; Written 16-Oct-86 17:56:52 by PECANN at site LMI Cambridge
;;; while running on The Importance of Being Earnest from band 2
;;; with System 110.232, Local-File 68.7, FILE-Server 18.4, Unix-Interface 9.1, Tape 6.39, Tiger 24.0, KERMIT 31.3, ZMail 65.14, Lambda-Diag 7.17, TCP-Kernel 41.0, TCP-User 63.0, TCP-Server 46.0, Site Data Editor 3.4, System Revision Level 3.182, Object Lisp 5.0, Experimental Iris 3.0, Experimental VISTA-LIBRARY 9.0, Experimental VISOBS 14.0, microcode 1581, SDU Boot Tape 3.14, SDU ROM 102.



; From file LAD: RELEASE-3.OBJECTLISP; PRIMS.LISP#26 at 16-Oct-86 17:56:53
#10R OBJ#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "OBJ")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: OBJECTLISP; PRIMS  "

(defun establish-class-var (sym obj value)
  (when (record-source-file-name sym 'defclassvar)
    (proclaim-objvar sym)
    (ask-aux obj (have sym (eval (walkover value))))))

))