*early-generic-functions* in file boot.l

[dsouza%hplrds@hplabs.HP.COM]

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))
 	   (fmakunbound 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
 	  (t
 	   (error "What the hell is ~S doing on *early-generic-functions*?"
 		  x)))))


Roy D'Souza   dsouza@hplabs.hp.com
(415) 857-7557