X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefcombin.lisp;h=ba355bebee13d6a11586ac5d4fcb0dc0a9d9dfca;hb=475c832b081651e66ad9446d4852c62086f5e740;hp=342f98f2f195fc94233773985956e179c441dc97;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/pcl/defcombin.lisp b/src/pcl/defcombin.lisp
index 342f98f..ba355be 100644
--- a/src/pcl/defcombin.lisp
+++ b/src/pcl/defcombin.lisp
@@ -73,10 +73,8 @@
 	   (getf (cddr whole) :identity-with-one-argument nil))
 	 (operator
 	   (getf (cddr whole) :operator type)))
-    (make-top-level-form `(define-method-combination ,type)
-			 '(:load-toplevel :execute)
-      `(load-short-defcombin
-	 ',type ',operator ',identity-with-one-arg ',documentation))))
+    `(load-short-defcombin
+     ',type ',operator ',identity-with-one-arg ',documentation)))
 
 (defun load-short-defcombin (type operator ioa doc)
   (let* ((truename *load-truename*)
@@ -189,9 +187,7 @@
 	(make-long-method-combination-function
 	  type lambda-list method-group-specifiers arguments-option gf-var
 	  body)
-      (make-top-level-form `(define-method-combination ,type)
-			   '(:load-toplevel :execute)
-	`(load-long-defcombin ',type ',documentation #',function)))))
+      `(load-long-defcombin ',type ',documentation #',function))))
 
 (defvar *long-method-combination-functions* (make-hash-table :test 'eq))