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

(defun    fun-1 ())
(defmacro mac-1 ())
(si:defspecialk spck-1 ())

(compiler:make-obsolete fun-1 "because it sucks")
(compiler:make-obsolete mac-1 "because it sucks")
(compiler:make-obsolete spck-1 "because it sucks")

(defun foozle ()
  (fun-1)
  (mac-1)
  (spck-1))



(defun    fun-2 ())
(defmacro mac-2 ())
(si:defspecialk spck-2 ())

(compiler:make-obsolete fun-2 "because it sucks" "thinger")
(compiler:make-obsolete mac-2 "because it sucks" "sucker")
(compiler:make-obsolete spck-2 "because it sucks" "wanger")

(defun foozle ()
  (fun-2)
  (mac-2)
  (spck-2))