;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.70
;;; Reason:
;;;  New SETF method for DOCUMENTATION.  Now, the following works:
;;;  
;;;    (setf (documentation 'foo) "FOO is a useless function.")
;;;   
;;; Written 7-Sep-88 21:37:47 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 3
;;; with Experimental System 126.68, Experimental ZWEI 126.8, Experimental ZMail 74.1, Experimental Local-File 76.0, Experimental File-Server 25.0, Experimental Unix-Interface 14.0, Experimental Tape 25.1, Experimental Lambda-Diag 18.0, microcode 1762, SDU Boot Tape 3.14, SDU ROM 103, Lambda/Falcon Development System.



; From modified file DJ: L.SYS; QRAND.LISP#508 at 7-Sep-88 21:37:48
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS; QRAND  "


(defsetf documentation (sym &optional (type nil type-supplied)) (value)
  (when (null type-supplied)
    (setq type (quote 'function)))
  `(si:set-documentation ,sym ,type ,value))

))