[no subject]

[Henry at MIT-AI (Henry Lieberman)]

The following function works interpretively, but compiled
causes the machine to require a boot:

(DEFUN LOSSAGE NIL
  (UNWIND-PROTECT
    (DO NIL
	(NIL)
      (*CATCH 'CATCH-TEST
	      (PROGN (PRINC "Type (RETURN NIL) to see lossage: ")
		     (LET ((READ (READ)))
		       (COND ((AND (LISTP READ)
				   (EQ (CAR READ) 'RETURN))
			      (RETURN (CADR READ)))
			     ((PRINT (EVAL READ))))))))
    (PRINT 'UNWOUND)))