[armedbear-cvs] r14115 - trunk/abcl/src/org/armedbear/lisp

ehuelsmann at common-lisp.net ehuelsmann at common-lisp.net
Sat Aug 18 10:35:03 UTC 2012


Author: ehuelsmann
Date: Sat Aug 18 03:35:03 2012
New Revision: 14115

Log:
Move export from autoloads.lisp to clos.lisp.

Modified:
   trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
   trunk/abcl/src/org/armedbear/lisp/clos.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/autoloads.lisp	Sat Aug 18 01:23:08 2012	(r14114)
+++ trunk/abcl/src/org/armedbear/lisp/autoloads.lisp	Sat Aug 18 03:35:03 2012	(r14115)
@@ -51,9 +51,6 @@
 (export '%ldb '#:system)
 (export 'concatenate-to-string '#:system)
 
-(in-package "MOP")
-(export '(%defgeneric
-          canonicalize-direct-superclasses))
 
 ;; Profiler.
 (in-package "PROFILER")

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sat Aug 18 01:23:08 2012	(r14114)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sat Aug 18 03:35:03 2012	(r14115)
@@ -52,6 +52,9 @@
 
 (in-package #:mop)
 
+(export '(%defgeneric canonicalize-direct-superclasses))
+
+
 ;;
 ;;
 ;;
@@ -4586,5 +4589,5 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (require "MOP"))
 
-(provide 'clos)
+(provide "CLOS")
 




More information about the armedbear-cvs mailing list