[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
*early-generic-functions* in file boot.l
- To: commonloops.pa@Xerox.COM
- Subject: *early-generic-functions* in file boot.l
- From: dsouza%hplrds@hplabs.HP.COM
- Date: Fri, 4 Sep 87 13:27:52 pdt
- Redistributed: commonloops.pa
In PCL 8-27-87, file boot.l :
The following code attempts to do a (setf (symbol-function ...) NIL).
Commenting out the line and replacing by the subsequent line appears
to fix the problem:
(eval-when (eval load)
;; To try and make it possible to load PCL into an environment in which
;; it has already been loaded, be sure to get rid of any generic function
;; objects we are likely to encounter during bootstrapping.
(dolist (x *early-generic-functions*)
(cond ((and x (symbolp x))
((and (listp x)
(eq (car x) 'setf))
;;;(setf (get-setf-generic-function (cadr x)) nil) ;COMMENT OUT
(fmakunbound (get-setf-generic-function-name (cadr x)))) ;REPLACE WITH
(error "What the hell is ~S doing on *early-generic-functions*?"
Roy D'Souza email@example.com