[no subject]

[HIC at MIT-MC (Howard I. Cannon)]

FOR NEXT RELEASE OF LISP:
Definition of DISPLACE in the interpreter is now the following:


From:     ALAN@MIT-AI
Date: Fri, 29 Jul 78 10:10:14 GMT
Original-Date: 07/29/78 06:10:14 EDT
Subject:
    To: HIC at MIT-MC

    (DEFUN DISPLACE (X Y)
           (AND (ATOM X) (ERROR '|-- not a list. (DISPLACE)| X))
           (COND ((ATOM Y)
    	      (RPLACA X 'PROGN)
    	      (RPLACD X (NCONS Y)))
    	     (T (RPLACA X (CAR Y))
    		(RPLACD X (CDR Y)))))

JONL: Can it become this in the compiler?