; .EnTete "Le-Lisp (c) version 15.2" " " "Le fichier patch"
; .EnPied "llpatch.ll" "A-%" " "
;
; .Centre "*****************************************************************"
; .Centre " Ce fichier est en lecture seule hors du projet ALE de l'INRIA.  "
; .Centre " Il est maintenu par ILOG SA, 2 Avenue Gallie'ni, 94250 Gentilly "
; .Centre " (c) Le-Lisp est une marque de'pose'e de l'INRIA                 "
; .Centre "*****************************************************************"
;
; .Centre "$Header: llpatch.ll,v 1.9 89/01/09 19:56:57 nuyens Exp $"
; 

(setq #:sys-package:colon 'llpatch)

;;  pour les modifs sur module et cpmac.
(unless (typefn 'old-setfn)
   (synonymq old-setfn setfn) )

(defun setfn (fnt type val)
;   (remprop fnt 'autoload)  
   (remprop fnt 'resetfn)
   (remprop fnt 'trace)
   (setq #:trace:trace (delq fnt #:trace:trace))
   (old-setfn  fnt type val) )

(defmacro eval-when (S* . E*)
   `(when (memq 'eval ',S*) ,@E*))