;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 124.79
;;; Reason:
;;;  (setf (caaar x) y) was expanding like (setf (caar x) y)
;;; Written 20-Jun-88 14:47:04 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 3
;;; with Experimental System 124.78, Experimental Local-File 74.2, Experimental File-Server 23.1, Experimental Unix-Interface 12.0, Experimental ZMail 72.0, Experimental Tape 23.6, Experimental Lambda-Diag 16.2, Tiger 28.0, microcode 1760, SDU Boot Tape 3.14, SDU ROM 103, Beta 3 for customers.



; From modified file DJ: L.SYS2; SETF.LISP#128 at 20-Jun-88 14:47:05
#10R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; SETF  "

(defun (:property caaar setf-expand) (form)
  `(car (caar ,(cadr form))))

))