;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.51
;;; Reason:
;;;  ;; don't send the property list down to the K
;;;  ;; until the K can handle bignums and the fleabit compiler can handle progv
;;;   --pfc
;;; Written 15-Aug-88 13:14:26 by PFC (Peter F. Cerrato) at site Gigamos Cambridge
;;; while running on Love from band 2
;;; with Experimental System 126.50, ZWEI 125.16, 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.13, SDU ROM 102, Kcold Loaded -- 8/3/88.



; From modified file DJ: L.SYS; QCFASD.LISP#266 at 15-Aug-88 13:14:32
#8R COMPILER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "COMPILER")))
  (PATCH-SOURCE-FILE "SYS: SYS; QCFASD  "

(DEFUN FASD-FILE-PROPERTY-LIST (PLIST)
  (unless (eq *target-computer* 'k)
    (FASD-ATTRIBUTES-LIST PLIST NIL)
    )
;  (fasd-dump-version-info))
)

))