(comment list 40000. symbols 4000.)

(progn (setq pure 1)
       (fasload nschsy fasl dsk scheme)
       (setq alarmclock nil)
       (setq *displace-save-sw* nil)
       (defaultf (list (list 'dsk (status udir))
		       'foo '>))
       (scheme t '|SCHEME: Top Level|))