;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:ZL -*-

(defun foozle-3 ())

(compiler:make-obsolete foozle-3 "because it sucks")

(defun foozle ()
  (foozle-3))