0.pre7.86:

[sbcl.git] / src / pcl / fast-init.lisp

diff --git a/src/pcl/fast-init.lisp b/src/pcl/fast-init.lisp
index 0154304..977f4de 100644 (file)
--- a/src/pcl/fast-init.lisp
+++ b/src/pcl/fast-init.lisp
@@ -74,7 +74,7 @@
          (sb-kernel:become-defined-fun-name sym)
          `(,sym ',class (list ,@initargs)))))))
 
-(defmacro expanding-make-instance-top-level (&rest forms &environment env)
+(defmacro expanding-make-instance-toplevel (&rest forms &environment env)
   (let* ((*make-instance-function-keys* nil)
         (form (macroexpand `(expanding-make-instance ,@forms) env)))
     `(progn
@@ -97,7 +97,7 @@
 
 (defmacro defconstructor
          (name class lambda-list &rest initialization-arguments)
-  `(expanding-make-instance-top-level
+  `(expanding-make-instance-toplevel
     (defun ,name ,lambda-list
       (make-instance ',class ,@initialization-arguments))))