;;; -*- Mode:Lisp;Package:(FROGGER :USE (GLOBAL SYSTEM)); Readtable:CL; Base:10 -*-

(defun PRINT-DISK-LABEL ()
  (print "you got here because I redefined print-herald"))

(defun disk-save () "phony disk-save")