1 ;;;; This software is part of the SBCL system. See the README file for
4 ;;;; This software is derived from the CMU CL system, which was
5 ;;;; written at Carnegie Mellon University and released into the
6 ;;;; public domain. The software is in the public domain and is
7 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
8 ;;;; files for more information.
10 (in-package "SB-IMPL")
15 (macrolet ((force-delayed-def!methods ()
17 ,@(mapcar (lambda (args)
26 "~&/done with DEFMETHOD ~S~%"
28 *delayed-def!method-args*)
29 (defmacro def!method (&rest args) `(defmethod ,@args))
30 ;; We're no longer needed, ordinary DEFMETHOD is enough now.
31 (makunbound '*delayed-def!method-args*))))
32 (force-delayed-def!methods))