[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Maclisp quiz



;;; What does TEST return when run interpreted?
;;; What does TEST return when run compiled?

(DEFUN F (()) 'BEFORE)
(DEFUN G (()) 'AFTER)

(DEFUN TEST ()
  (LET ((F (GETL 'F '(SUBR EXPR)))
	(G (GETL 'G '(SUBR EXPR))))
       (UNWIND-PROTECT (F (PUTPROP 'F (CADR G) (CAR G)))
		       (PUTPROP 'F (CADR F) (CAR F)))))