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

(defun foozle-4 ())

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

(defun foozle ()
  (foozle-4))