[no subject]

[KLE@MIT-AI]

    (defun write macro (n)		;(write <file> <s-exp>)
           `(progn ()
    	       (setq outfiles (list (open ,(cadr n) 'out)) ^r t ^w t)
    	       ,(caddr n)
    	       (close (car outfiles))
    	       (setq ^r nil ^w nil)
    	       t))

    Which expands into:

    (DEFUN WRITE MACRO (N) 
           (CONS 'PROGN
    	     (CONS 'NIL
    		   (CONS (CONS 'SETQ
    			       (CONS 'OUTFILES
    				     (CONS (CONS 'LIST
    						 (CONS (CONS 'OPEN
    							     (CONS (CADR N)
    								   '('OUT)))
    						       'NIL))
    					   '(^R T ^W T))))
    			 (CONS (CADDR N)
    			       '((CLOSE (CAR OUTFILES)) (SETQ ^R NIL ^W NIL) T))))))


    	it seems that after you use this macro grindef refuses to work. 

Why?