        (call-interactively command))))
 (defalias 'lambda!! 'λ!!)
 
-(define-obsolete-function-alias 'FILE! 'file!) ; DEPRECATED
 (defun file! ()
   "Return the emacs lisp file this macro is called from."
   (cond ((bound-and-true-p byte-compile-current-file))

;;
;;; Definers

(define-obsolete-function-alias 'def-advice! 'defadvice!)
(defmacro defadvice! (symbol arglist &optional docstring &rest body)
  "Define an advice called NAME and add it to PLACES.


         (car current-load-list))
        (buffer-file-name)))

(defun dir! ()
  "Returns the directory of the emacs lisp file this macro is called from."
  (when-let (path (file!))
