;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.24
;;; Reason:
;;;  Fixed over-optimized optimizer for GETF.
;;;  Previously (GETF (FOO) 'PROPERTY) would blow up in compilation.
;;; Written 9-Aug-88 19:43:37 by smh (Steve Haflich) at site Gigamos Cambridge
;;; while running on Harpo from band 3
;;; with Experimental System 126.23, ZWEI 125.14, ZMail 73.2, Local-File 75.2, File-Server 24.1, Unix-Interface 13.0, Tape 24.2, Lambda-Diag 17.0, microcode 1762, SDU Boot Tape 3.12, SDU ROM 102, kold 4aug88.



; From modified file DJ: L.SYS; QCOPT.LISP#179 at 9-Aug-88 19:43:43
#8R COMPILER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "COMPILER")))
  (PATCH-SOURCE-FILE "SYS: SYS; QCOPT  "

(defoptimizer getf-inline getf (form)
  (if (symbolp (cadr form))
      `(get (locf ,(cadr form)) ,@(cddr form))
    form))

))